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

• #49946 istvankeresz aktív tag Fferi50 #49944

  Új Válasz 2022-11-15 15:41:43 #49946

  Ú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 Fferi50 #49944 üzenetére

  Szia!

  Ez tökéletes. Viszont a kiolvasott cellákat szeretném másolni egymás alá egy másik munkalapra.

  Ezt hova kell berakni, hogy jó legyen? Ha egyáltalán helyes.

  lr = Sheets(6).Range("E" & Rows.Count).End(xlUp).Row + 1

  Ebbe szeretném beletenni, úgy, hogy minden ciklus után ugorjon egy sort.

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

    For Each ws In ThisWorkbook.Worksheets
        For Each cell In Sheets(ws.Name).Range("K2:K6")
            If cell.Value Like "1234.56*" Then
                Sheets(6).Range("E10") = cell.Value
                ' MsgBox (ws.Name & " " & cell.Value)
            End If
            ' MsgBox (ws.Name & " " & cell.Value)
        Next cell
        
    Next ws
End Sub

  MsgBox-ok, csak ellenörzésnek vannak, hogy lássam, hogy a megfelelő értékekkel dolgozom.

  Köszi!

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