İkili veri seçilen ilin alan kodunu bulma

[designer41]

Merhabalar
Ekli dosyada1.seçenekteki gibi 2. seçenekteki ni yapabilirmiyiz?
Bir haftadır formu araştırdım sorunumu halledemedim.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[hamitcan]

1.sorunuz için;

Private Sub Worksheet_Change(ByVal Target As Range)
For Each hcr In [n2:s8]
If hcr.Text = [b3] Then [c3] = Cells(hcr.Row, hcr.Column + 1).Text
Next
End Sub

 

[designer41]

1.sorunuz için;

private sub worksheet_change(byval target as range)
for each hcr ın [n2:s8]
ıf hcr.text = [b3] then [c3] = cells(hcr.row, hcr.column + 1).text
next
end sub

üstadım 2.seçenek lazım bana nasıl yapabilir acaba?

 

[Merhum İdris SERDAR]

Merhabalar
Ekli dosyada1.seçenekteki gibi 2. seçenekteki ni yapabilirmiyiz?
Bir haftadır formu araştırdım sorunumu halledemedim.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

.

Dosyanız ekte.

.

 

[designer41]

.

Dosyanız ekte.

.

Sayın yurttas Allah razı olsun çok çok teşekkür ederim ilginize.

 

[designer41]

.

Dosyanız ekte.

.

Sayın yurttas

verilerim sayfa2 de olursa sayfa1 den listeleyemiyorum
sayfa1 de bulunan açılır kutuma alan adı verdiğimde hata veriyor.
alan adının formülünde mi bir hata yapıyorum çözemedim?

=KAYDIR(DOLAYLI(sayfa2!$F$9);0;0;BAĞ_DEĞ_DOLU_SAY(DOLAYLI(sayfa2!$F$9));1)

 

[Merhum İdris SERDAR]

Sayın yurttas

verilerim sayfa2 de olursa sayfa1 den listeleyemiyorum
sayfa1 de bulunan açılır kutuma alan adı verdiğimde hata veriyor.
alan adının formülünde mi bir hata yapıyorum çözemedim?

=KAYDIR(DOLAYLI(sayfa2!$F$9);0;0;BAĞ_DEĞ_DOLU_SAY(DOLAYLI(sayfa2!$F$9));1)

.

Dosyanız ekte.

.

 

[designer41]

.

Dosyanız ekte.

.

Sayın yurttas sayenizde sorun çözülmüştür.
Ellerin dert görmesin.Çok teşekkür ederim