szia
Ezt próbáltam használni, de a végét úgy szeretném átírni, hogy fixen a munkafüzet adott tartományába végezze a másolást. PL D1 -től kezdje és ne változók legyenek benne. A törlés a végén nem fontos, ki is vehetem, mert a kigyűjtés a lényeg.
Üdv:
Sub masolas()
Dim i, j, p, n As Integer 'i-sor, j-oszlop, n- sor a Munka2-n
n = 1
For i = 1 To 20
p = InStr(1, Cells(i, 3).Value, "1", vbTextCompare)
If p > 0 Then 'ha megtalálja
For j = 1 To 3
Worksheets("Munka2").Cells(n, j).Value = Cells(i, j).Value
Next j
n = n + 1
'Rows(i).Delete 'sor törlés
'i = i - 1 'a törlés miatt
End If
Next i
MsgBox "Kész!"
'A fenti kód végigmegy az 3.oszlopon (1-től 20-ig). Ha az első oszlop cellájában lévő szövegben megtalálja az "informatika" szót (InStr),
'akkor ezt a sort (most 10 oszlopig) átmásolja a Munka2 munkalapra.
End Sub