Formülü makroya çevirmek.. yardımm

[muzo696]

(C) SÜTUNUNDA ADI SOYADI YAZAN YERE ŞAHSIN ADINI SOYADINI YAZIĞIMDA, TELEFON REHBERİ SAYFASINDAN NUMARASINI VE DİĞER BİLGİLERİ BULUP BOŞLUKLARIN OTOMATİK GELMESİNİ İSTİYORUM..

MAKRO İLE MÜMKÜN MÜ

 

[muygun]

Merhaba;
Eki deneyin
İyi çalışmalar.

 

[muzo696]

tabloda oynama yapınca makro bozuluyor varmı çözümü

 

[muygun]

Merhaba;
Bunun için ya tablonuzu baştan kurgulayıp makro oluşturacaksınız.
Yada vba öğrenip gereken değişiklik yada dönüşümleri yapacaksınız.
Kullanılan makro altta...
Açıklamaları baskılı olarak her satıra yazdım.


Private Sub Worksheet_Change(ByVal Target As Range) 'sayfada işlem yapılırsa makro çalışır
sat = Target.Row 'işlem yapılan satır no'su
süt = Target.Column 'işlem yapılan sütun no'su

If sat >= 5 And süt = 3 And Cells(sat, süt) = "" Then 'eğer işlem yapılan satır büyükeşit ise 5'e ve işlem yapılan sütun eşit ise 3'e ve işlem yapılan hücre boş ise End If 'e kadar işlem yapar
Cells(sat, "a") = "": Cells(sat, "b") = "": Cells(sat, "e") = "" ' ilgili satırın a hücresi , ilgili satırın b hücresi , ilgili satırın e hücresi boşaltılır
End If ' Then ile yapılan sorgu sonlanır

If sat >= 5 And süt = 3 And Cells(sat, süt) <> "" Then 'eğer işlem yapılan satır büyükeşit ise 5'e ve işlem yapılan sütun eşit ise 3'e ve işlem yapılan hücre boş değilse End If 'e kadar işlem yapar
Cells(sat, "a") = "": Cells(sat, "b") = "": Cells(sat, "e") = ""' ilgili satırın a hücresi , ilgili satırın b hücresi , ilgili satırın e hücresi boşaltılır
sonsat = Sheets("TELEFON REHBERİ").Range("A65536").End(xlUp).Row ' TELEFON REHBERİ sayfasında son dolu satır no'sunu bulur
sat = Target.Row 'işlem yapılan satır no'su
aranan = Cells(sat, "c") 'işlem yapılan satırda aranan ad soyadı aranan değişkenine atar
sırası = WorksheetFunction.Match(aranan, Sheets("TELEFON REHBERİ").Range("A1:A" & sonsat), 0) ' TELEFON REHBERİ sayfasında A sütununda aranan verinin satır no'sunu tespit eder
Cells(sat, "a") = Sheets("TELEFON REHBERİ").Cells(sırası, "c") ' işlem yapılan satırın A sütununa TELEFON REHBERİ sayfasında A sütununda bulunan verinin c sütun verisini yazar
Cells(sat, "b") = Sheets("TELEFON REHBERİ").Cells(sırası, "d") ' işlem yapılan satırın B sütununa TELEFON REHBERİ sayfasında A sütununda bulunan verinin d sütun verisini yazar
Cells(sat, "e") = Sheets("TELEFON REHBERİ").Cells(sırası, "b") ' işlem yapılan satırın E sütununa TELEFON REHBERİ sayfasında A sütununda bulunan verinin b sütun verisini yazar
End If ' Then ile yapılan sorgu sonlanır

End Sub ' makro sonlandırılır.


İyi çalışmalar.

 

[anemis]

Süpersiniz, açıklamalar çok faydalı oldu.