- Katılım
- 7 Ağustos 2011
- Mesajlar
- 319
- Excel Vers. ve Dili
- 2003-2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 25/05/2022
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.