Kod değiştirme

[thugangel]

Aşağıdaki kodları kendi sayfama uyarlayamıyorum.A ve B sutunu yerine B sütunlarında çalışsın istiyorum.
Sub ekle()

son = Range("A65536").End(3).Row

If son < 9 Then
Cells(9, "A") = Cells(2, "A")
Cells(9, "B") = Cells(2, "B")
Exit Sub

End If

For i = 9 To son

If Cells(i, "A") = "" Then

Cells(i, "A") = Cells(2, "A")
Cells(i, "B") = Cells(2, "B")
Exit Sub
End If

Next

Cells(son + 1, "A") = Cells(2, "A")
Cells(son + 1, "B") = Cells(2, "B")
End Sub

 

[Ömer]

Merhaba,

Kodlarda B gördüklerinizin yerine P yazın daha sonra A gördüklerinizin yerine B yazın.