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

• #35968 Imu csendes tag Delila_1 #35966

  Új Válasz 2017-08-13 14:42:40 #35968

  Ú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

  

  Imu

  csendes tag

  válasz Delila_1 #35966 üzenetére

  Köszi!

  Közben addig próbálkoztam, míg sikerült megírni a kódot

  Sub keres()
Dim ertek As String
Dim sor As Integer
Dim sor2 As Integer
Dim i As Integer
Dim j As Integer

sor = Sheets("Munka1").Range("A100").End(xlUp).Row
sor2 = Sheets("Munka2").Range("A100").End(xlUp).Row

For j = 1 To sor


ertek = Sheets("Munka1").Cells(j, 1).Value


For i = 1 To sor2
If Sheets("Munka2").Cells(i, 1) = ertek Then
Sheets("Munka2").Rows(i).Delete
End If

Next i
Next j

ThisWorkbook.Sheets("Munka2").Select
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select
Selection.Cut
ThisWorkbook.Sheets("Munka1").Select
ActiveSheet.Cells(sor + 1, 1).Select
ActiveSheet.Paste




End Sub

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