DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
aynı konu hakkında benimde yardıma ihtiyacım var.d4 hücresine A1=1 ise Sayfa2 B1 deki hücrede yazanı,A1=2 ise Sayfa2 B2 deki hücrede yazanı, A1=3 ise Sayfa2 B3 deki hücrede yazanı getirmesini istiyorum. yanlız a1=100 kere tekrarlaması gerek a1=1, a1=2.........a1=100
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") <> "" Then
Range("d4") = Sheets("sayfa2").Cells(Range("a1"), 2)
End If
End Sub