Merhaba Arkadaşlar,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
bb = [b65536].End(3).Row
aa = [D65536].End(3).Row
If Intersect(Target, [G1:G5]) Is Nothing Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
For i = aa + 1 To bb
Cells(i, "d") = Target
Next i
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
bb = [b65536].End(3).Row
aa = [C65536].End(3).Row
If Intersect(Target, [F1:F5]) Is Nothing Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
For i = aa + 1 To bb
Cells(i, "c") = Target
Next i
Application.ScreenUpdating = True
End Sub
Yukarıdaki kodları aynı sayfada nasıl kullanabilirim. Yardımlarınız için şimdiden teşekkür ederim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
bb = [b65536].End(3).Row
aa = [D65536].End(3).Row
If Intersect(Target, [G1:G5]) Is Nothing Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
For i = aa + 1 To bb
Cells(i, "d") = Target
Next i
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
bb = [b65536].End(3).Row
aa = [C65536].End(3).Row
If Intersect(Target, [F1:F5]) Is Nothing Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
For i = aa + 1 To bb
Cells(i, "c") = Target
Next i
Application.ScreenUpdating = True
End Sub
Yukarıdaki kodları aynı sayfada nasıl kullanabilirim. Yardımlarınız için şimdiden teşekkür ederim.