Új hozzászólás Aktív témák

• #49956 istvankeresz aktív tag istvankeresz #49955

  Új Válasz 2022-11-16 08:39:59 #49956

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  istvankeresz

  aktív tag

  válasz istvankeresz #49955 üzenetére

  Müködik, viszont az lr egy nagyon nagy értéket kap, így a 1010185 sornál kezdi a beírást. Ez mért lehet? Honnan vesz egy ekkora értéket?

  Így néz ki most:

  Dim cell As Range
Dim ws As Worksheet
Dim lr As Long

  lr = Sheets(6).Range("E" & Rows.Count).End(xlUp).Row + 1
    For Each ws In ThisWorkbook.Worksheets
       For Each cell In Sheets(ws.Name).Range("K2:K6")
                If cell.Value Like "2022.01*" Then
                    Sheets(6).Range("E" & lr) = cell.Value: lr = lr + 1
                    MsgBox (ws.Name & " " & cell.Value & " " & lr)
                End If
            ' MsgBox (ws.Name & " " & cell.Value)
        Next cell
    Next ws

Új hozzászólás Aktív témák