Makro ile düseyara ve parcaal hakkında

[drummers]

"Sgk Şifre" sekmemde "B11" hücresinde isim seçildiğinde sarı ile işaretlediğim alanlara gerekli verilerin getirilmesini sağlamak istemekteyim.

Not: AN14: CV14 aralığı parcaal ile olmalı


Fakat bunu makro ile yapmak istiyorum. "B11" den isim seçildiği anda makro çalışmalı

Teşekkür ederim

 

[leumruk]

Merhaba,
Aşağıdaki kodu dosyanızın sgk Şifre sayfasının kod bölümüne kopyalayın.
NOT: Bazı kısımları yaptım. Diğerlerini hangi bilginin nereye geleceğini kestiremediğimden yazmadım. Örnekten yola çıkarak diğer kısımları siz tamamlayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b11]) Is Nothing Or Target = "" Then Exit Sub
Set dt = Sheets("data")
Set Bul = dt.Range("b2:b" & dt.[b65536].End(3).Row).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
[af16] = dt.Cells(Bul.Row, "l") 'Vergi dairesi adı
[af17] = dt.Cells(Bul.Row, "m") 'Vergi kimlik no
[u18] = dt.Cells(Bul.Row, "e") 'İşyerinin adresi
[bj19] = dt.Cells(Bul.Row, "f") 'İlçe
[cd19] = dt.Cells(Bul.Row, "g") 'İl
[z24] = dt.Cells(Bul.Row, "q") 'İşyeri Telefon
Else:
MsgBox "Bu isimde kayıt bulumamaktadır.", vbCritical, "UYARI"
End If
End Sub