DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$7" Then Exit Sub
Set f = Sheets("sayfa1").[b:c].Find([c7])
If f Is Nothing Then
MsgBox [c7] & " bulunamadı.", vbInformation
Else
[c6] = Sheets("sayfa1").Range("c" & f.Row)
[d6] = Sheets("sayfa1").Range("d" & f.Row)
End If
Set f = Nothing
End Sub
Sayın anemos, teşekkür ederim,Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$7" Then Exit Sub Set f = Sheets("sayfa1").[b:c].Find([c7]) If f Is Nothing Then MsgBox [c7] & " bulunamadı.", vbInformation Else [c6] = Sheets("sayfa1").Range("c" & f.Row) [d6] = Sheets("sayfa1").Range("d" & f.Row) End If Set f = Nothing End Sub
Ali bey, merhaba, teşekkür ederim, saygılarımla.C6 hücrenize
=EĞER(ESAYIYSA(C7);DÜŞEYARA(C7;Sayfa1!B312;2;0);DÜŞEYARA("*"&C7&"*";Sayfa1!C312;1;0))
D6 hücrenize
=EĞER(ESAYIYSA(C7);DÜŞEYARA(C7;Sayfa1!B312;3;0);DÜŞEYARA("*"&C7&"*";Sayfa1!C312;2;0))
yazınız.
Sayın anemos, teşekkür ederim, saygılarımla.Merhaba,
Sayfa2'de denediyseniz çalışması gerekirdi. Dosyanız ektedir, tekrar deneyin.