excellkurdu
Altın Üye
- Katılım
- 16 Nisan 2008
- Mesajlar
- 313
- Excel Vers. ve Dili
- Türkçe Microsoft Office Excel 2007
- Altın Üyelik Bitiş Tarihi
- 22-03-2026
Arkadaşlar Merhaba,
Makro ile C sütununa Sayfa2 deki (açılır listeden) bir değeri girdiğimde, D tutununa Sayfa2 deki satırdaki değerini nasıl otomatik doldurabiliriz? Örnek Dosyam ektedir.
Elimde çalışan bir örnek var. Fakat 3 satırlıktı. Şimdi bunu 500 satır için yapmaya çalışınca kodları tek tek yazmam imkansız. Kolayı var mıdır?
Kullandığım Örnek Kod:
Makro ile C sütununa Sayfa2 deki (açılır listeden) bir değeri girdiğimde, D tutununa Sayfa2 deki satırdaki değerini nasıl otomatik doldurabiliriz? Örnek Dosyam ektedir.
Elimde çalışan bir örnek var. Fakat 3 satırlıktı. Şimdi bunu 500 satır için yapmaya çalışınca kodları tek tek yazmam imkansız. Kolayı var mıdır?
Kullandığım Örnek Kod:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C5")) Is Nothing Then GoTo 6
Call C5
Exit Sub
6
If Intersect(Target, Range("C6")) Is Nothing Then GoTo 7
Call C6
Exit Sub
7
If Intersect(Target, Range("C7")) Is Nothing Then GoTo 8
Call C7
Exit Sub
8
If Intersect(Target, Range("C8")) Is Nothing Then Exit Sub
Call C8
End Sub
Sub C5()
Application.ScreenUpdating = False
If Range("C5") <> "" Then
Set BUL = Sheets("BiyosidallerFare").Range("A:A").Find(Range("C5").Value, , , xlWhole, , xlNext)
If Not BUL Is Nothing Then
[D5] = Sheets("BiyosidallerFare").Range("D" & BUL.Row)
End If
End If
End Sub
Sub C6()
Application.ScreenUpdating = False
If Range("C6") <> "" Then
Set BUL = Sheets("BiyosidallerFare").Range("A:A").Find(Range("C6").Value, , , xlWhole, , xlNext)
If Not BUL Is Nothing Then
[D6] = Sheets("BiyosidallerFare").Range("D" & BUL.Row)
End If
End If
End Sub
Sub C7()
Application.ScreenUpdating = False
If Range("C7") <> "" Then
Set BUL = Sheets("BiyosidallerFare").Range("A:A").Find(Range("C7").Value, , , xlWhole, , xlNext)
If Not BUL Is Nothing Then
[D7] = Sheets("BiyosidallerFare").Range("D" & BUL.Row)
End If
End If
End Sub
Sub C8()
Application.ScreenUpdating = False
If Range("C8") <> "" Then
Set BUL = Sheets("BiyosidallerFare").Range("A:A").Find(Range("C8").Value, , , xlWhole, , xlNext)
If Not BUL Is Nothing Then
[D8] = Sheets("BiyosidallerFare").Range("D" & BUL.Row)
End If
End If
End Sub
Ekli dosyalar
-
18.9 KB Görüntüleme: 16