Answer Question
0
0

Tento kod hleda v radkach 9 dnesni datum ale ja bych to potreboval zmenit aby hledal datum z listu START bunky C11
Jde to nejak upravit?

Sub Kopiruj_Click()

Dim SH As Worksheet, Stlpec As Integer, Meno As String

On Error Resume Next

For Each SH In Worksheets

With SH

Meno = .Name

If InStr(1, Meno, “FINAL”) > 0 And Meno “FINAL” Then

Stlpec = WorksheetFunction.Match(CDbl(Date), .Rows(9), 0)

If Err = 0 Then

With .Cells(9, Stlpec).Resize(.Cells(Rows.Count, Stlpec).End(xlUp).Row – 8)

.Value = .Value

End With

Else

Err.Clear

End If

End If

End With

Next SH

End Sub

Marked as spam
Odeslal Mer.
Otázka položena 25.6.2016 14:58
143 views

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]