Merhabalar,
Aşağıdaki gibi bir makrom var.
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim a, b, d As Integer
For a = 2 To Sayfa1.[a500000].End(3).Row
b = [a50000].End(3).Row
If Sayfa3.Cells(b, "a") = Sayfa1.Cells(a, "a") Then
Sayfa3.Cells(b, "b") = Sayfa1.Cells(a, "b")
Sayfa3.Cells(b, "c") = Sayfa1.Cells(a, "c")
End If
Next a
End Sub
sorunsuz çalışıyor. Ancak istediğim a sütununa veri girdikten sonra b ve c sütunlarına istediğimi yazıyor ben ondan sora ilgili satırın d sütununa kursörün gitmesini ve ondan sonra makro işleminin tamamlanmasını istiyorum. Bununla ilgili kodu yazıyorum fakat worksheet da kodları azdığım için hep d sütunundaki hücreye gidiyor. Bense işlemden sora gitsin fakat ondan sonra işlem bitsin ve terar tekrar aynı olay tekrarlanmasın istiyorum.
Aşağıdaki gibi bir makrom var.
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim a, b, d As Integer
For a = 2 To Sayfa1.[a500000].End(3).Row
b = [a50000].End(3).Row
If Sayfa3.Cells(b, "a") = Sayfa1.Cells(a, "a") Then
Sayfa3.Cells(b, "b") = Sayfa1.Cells(a, "b")
Sayfa3.Cells(b, "c") = Sayfa1.Cells(a, "c")
End If
Next a
End Sub
sorunsuz çalışıyor. Ancak istediğim a sütununa veri girdikten sonra b ve c sütunlarına istediğimi yazıyor ben ondan sora ilgili satırın d sütununa kursörün gitmesini ve ondan sonra makro işleminin tamamlanmasını istiyorum. Bununla ilgili kodu yazıyorum fakat worksheet da kodları azdığım için hep d sütunundaki hücreye gidiyor. Bense işlemden sora gitsin fakat ondan sonra işlem bitsin ve terar tekrar aynı olay tekrarlanmasın istiyorum.