Değerli Dostlar Selamlar,
Sayfa1 ComboBox1 deki kişiyi Sayfa2 B sütununda arayıp kaydırarak veri almaya çalışıyorum. Kodlar aşağıda nerede hata yapıyorum.
Private Sub ComboBox1_Change()
On Error Resume Next
Set s1 = Sayfa1
Set s2 = Sayfa2
Set KRİTER = s1.ComboBox1
S1.Select
[C9:C17].Clearcontens
s2.Select
ara = [A3:A65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole).Activate
s1.Range("C9") = ActiveCell.Offset(0, 2).Value
s1.Select
Range("A1").Select
Set s1 = Nothing
Set s2 = Nothing
Exit Sub
End Sub
Sayfa1 ComboBox1 deki kişiyi Sayfa2 B sütununda arayıp kaydırarak veri almaya çalışıyorum. Kodlar aşağıda nerede hata yapıyorum.
Private Sub ComboBox1_Change()
On Error Resume Next
Set s1 = Sayfa1
Set s2 = Sayfa2
Set KRİTER = s1.ComboBox1
S1.Select
[C9:C17].Clearcontens
s2.Select
ara = [A3:A65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole).Activate
s1.Range("C9") = ActiveCell.Offset(0, 2).Value
s1.Select
Range("A1").Select
Set s1 = Nothing
Set s2 = Nothing
Exit Sub
End Sub