istediğim bilgileri çekme

[fsk0660]

merhabalar

ben düşeyara ile " a , b, c sutunundaki değerlerinden birisini yazdığımda d,e,f sütunudaki bilgileri getirmek istiyorum ama yapamadım bu konu hakkında bana yard. olursanız sevinirim...

 

[fsk0660]

lütfen çok acil yardımcı olursanız sevinirim...

 

[numan şamil]

merhabalar

ben düşeyara ile " a , b, c sutunundaki değerlerinden birisini yazdığımda d,e,f sütunudaki bilgileri getirmek istiyorum ama yapamadım bu konu hakkında bana yard. olursanız sevinirim...

Merhaba
Makro ile olur diyorsanız eki incelermisiniz

 

[fsk0660]

çok tşk. ederim yanlız benim pek makro hakkında bilgi sahibi değilim..o yüzden asıl yapmak istedğim şeyde uygulamayabilrim ama yinede tşk. edrim..

 

[numan şamil]

Merhaba elimden geldiği kadar açıklama yapıyım
Sub numan()
Range("j6:L6").ClearContents
'J6 ile L6 arasındaki verileri temizle
For k = 6 To Range("a" & Rows.Count).End(xlUp).Row
'Döngü 6 satırdan başlalıyıp "a" sutununun son dolu hücresine kadar çalıştır
If Range("I6") = Range("A" & k) Or Range("I6") = Range("B" & k) Or Range("I6") = Range("C" & k) Then
'Eğer "I6" hücresindeki değer "a" sutununda hücredeki değere eşit veya "I6" hücresindeki değer "b" sutununda hücredeki değere eşit ise
Range("J6") = Range("D" & k)
' "j6" hücresine "d" hücresinde karşılık gelen değeri yaz
Range("K6") = Range("E" & k)
' "k6" hücresine "e" hücresinde karşılık gelen değeri yaz
Range("L6") = Range("F" & k)
' "L6" hücresine "f" hücresinde karşılık gelen değeri yaz
End If
Next k
'döngüden çık
End Sub

 

[numan şamil]

Merhaba
sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [[COLOR="Blue"]I6[/COLOR]]) Is Nothing Then Exit Sub
    [COLOR="blue"]numan[/COLOR]
End Sub

yazıp denermisiniz
Not:"I6" makronun tetiklenmesini istediğiniz yani veriyi girdiğiniz hücre
"numan" Makronuzun ismi