Just nu i M3-nätverket
Gå till innehåll
Emilb

Analys av kod

Rekommendera Poster

Emilb

Hej,

 

Har en kod som jag inte förstår mig på, specifikt i vilken flik i excel den jobbar mot. Hur ändrar jag i så fall om jag vill ha en specifik flik?

 

Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
    Dim daterng As Range
    Dim DateCell As Range
    Dim WorkSht As Worksheet
    Dim dateStr As String
    Application.ScreenUpdating = False
    For Each WorkSht In Worksheets
        WorkSht.Select
        'Set daterng = Range("A:A")
        Set daterng = WorkSht.UsedRange
        'daterng.Select
        For Each DateCell In daterng
            DateCell.Activate
            ActiveCell.Select
            On Error Resume Next
            dateStr = DateCell.Value
            If dateStr = Date Then
                DateCell.Select
                Exit Sub
            End If
        Next
    Next WorkSht
    Application.ScreenUpdating = True
    'Worksheets(1).Select
End Sub
 
mvh
Dan

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_

For Each WorkSht In Worksheets

...

Next WorkSht

 

Betyder att den går igenom/loopar alla blad i arbetsboken och kör koden som står mellan For...Next på varje blad

 

Vill du behålla koden du har men bara kör på ett blad, t.ex "blad1" så kan du ta bort

 

Next WorkSht

 

och ersätta 

For Each WorkSht In Worksheets

med

Set WorkSht = Worksheets("blad1")

Då kör koden enbart på det bladet när du öppnar dokumentet

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Emilb

Toppen! Tack för all hjälp

 

vänliga hälsningar

Dan

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...