tıklat komutu

[oguz demirbas]

Sevgili dostlar ekte göstermiş olduğum dosyada kesim yazan satırların silinerek başka sayfaya yazılmasını istiyorum.

saygılarımla

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz ve butona atayınız.

Sub aktar()
Dim sonsat_ana As Long, sat As Long, i As Long, k As Byte
Sheets("ana").Select
sonsat_ana = Cells(65536, "A").End(xlUp).Row
sat = Sheets("kesim").Cells(65536, "A").End(xlUp).Row + 1
For i = sonsat_ana To 2 Step -1
    If LCase(Replace(Replace(Cells(i, "C").Value, "I", "ı"), "İ", "i")) = "kesim" Then
    For k = 1 To 3
        Sheets("Kesim").Cells(sat, k).Value = Cells(i, k).Value
    Next k
    sat = sat + 1
    Rows(i).Delete
    End If
Next i
MsgBox "İşlem Tamam.."
End Sub

 

[oguz demirbas]

teşekkür ederim...