İki koşula göre veri aktarma

[1Al2Ver]

İyi sabahlar, Sayfa1'de kayıtlı verileri Sayfa2'ye iki koşul ile aktarmak istiyorum, teşekkür ederim.

 

[Zeki Gürsoy]

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&#305;.", vbInformation
Else
    [c6] = Sheets("sayfa1").Range("c" & f.Row)
    [d6] = Sheets("sayfa1").Range("d" & f.Row)
End If
 
Set f = Nothing
 
End Sub

 

[Ali]

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.

 

[1Al2Ver]

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,

Kodu sırasıyla; sayfa1, sayfa2, Modül1 ve Thisworkbook'a ayrı ayrı yazarak denedim, ancak sonuç alamadım, zaman bulduğunuzda bir bakarsanız sevinirim, saygılarımla.

 

[1Al2Ver]

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.

Ali bey, merhaba, teşekkür ederim, saygılarımla.

 

[Zeki Gürsoy]

Merhaba,

Sayfa2'de denediyseniz çalışması gerekirdi. Dosyanız ektedir, tekrar deneyin.

 

[1Al2Ver]

Merhaba,

Sayfa2'de denediyseniz çalışması gerekirdi. Dosyanız ektedir, tekrar deneyin.

Sayın anemos, teşekkür ederim, saygılarımla.