Makro İle Veri Doğrulama

[ormann]

iyi günler ekteki örnek dosyada anasayfa üzerindeki ComboBox.1'den adres sayfasındaki kişinin adını seçtiğimde ilgili veriler ana sayfa üzerindeki hücrelere makro ile nasıl gelebilir.?

 

[vardar07]

Merhaba, Dosyanız ekte.

 

[ormann]

Sayın Vardar çok teşekkür ederim.Benim istediğim bu işlemin formül ile değilde makro ile olması

 

[vardar07]

Eğer anasayfa kod bölümüne bakarsan makro ile yapıyor sadece formülleride yazıyor. formülleri sil tekrar çalıştır. combobox tan seçim yapılınca otomatik yazdığını göreceksin.

 

[ormann]

Denedim formülleri sildim.Fakat sadece adı ve soyadını getiriyor.

 

[vardar07]

sayfa üzerinde bulunan yerlerdeki formülleri sil. Sayfa Kod bölümünden silersen çalışmaz.

 

[ormann]

Sayın Vardar sayfa kod bölümünde formül yok göremiyorum.

 

[vardar07]

Özür dilerim dosyayı kayıt etmeden yüklemişim.
Ana sayfa sekmesi üzerine sağ tıkla açılan kod penceresine aşağıdaki kodu yapıştır.

Private Sub ComboBox1_Change()
Range("F7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R6C6="""","""",VLOOKUP(R6C6,adres!R5C2:R12C6,2,0))"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R6C6="""","""",VLOOKUP(R6C6,adres!R5C2:R12C6,3,0))"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R6C6="""","""",VLOOKUP(R6C6,adres!R5C2:R12C6,4,0))"
    Range("F10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R6C6="""","""",VLOOKUP(R6C6,adres!R5C2:R12C6,5,0))"
    Range("E5").Select
Range("F7:F10" & Son_Satir).Value = Range("F7:F10" & Son_Satir).Value
End Sub

Resimdeki düzenlemeleri yap.

Ayrıca üst mesajdaki dosya güncellendi.

 

[ormann]

Sayın Vardar çok teşekkür ederim .Yalnız combobox a adres sayfasında olmayan bir isim girdigimde formuller hata veriyor.Bu hata nasıl giderilir.

 

[vardar07]

Sayın Vardar çok teşekkür ederim .Yalnız combobox a adres sayfasında olmayan bir isim girdigimde formuller hata veriyor.Bu hata nasıl giderilir.

Merhaba, Kodları aşağıdakinle değiştirip denermisin.

Private Sub ComboBox1_Change()
    Range("F7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(R[-1]C,adres!R[-2]C[-4]:R[46]C,2,0)),"""",VLOOKUP(R[-1]C,adres!R[-2]C[-4]:R[46]C,2,0))"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(R[-2]C,adres!R[-3]C[-4]:R[45]C,3,0)),"""",VLOOKUP(R[-2]C,adres!R[-3]C[-4]:R[45]C,3,0))"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(R[-3]C,adres!R[-4]C[-4]:R[44]C,4,0)),"""",VLOOKUP(R[-3]C,adres!R[-4]C[-4]:R[44]C,4,0))"
    Range("F10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(R[-4]C,adres!R[-5]C[-4]:R[43]C,5,0)),"""",VLOOKUP(R[-4]C,adres!R[-5]C[-4]:R[43]C,5,0))"
    'Range("E5").Select
Range("F7:F10" & Son_Satir).Value = Range("F7:F10" & Son_Satir).Value
End Sub

 

[ormann]

Çok teşekkür ederim.Ellerinize sağlık

 

[vardar07]

Çok teşekkür ederim.Ellerinize sağlık

Rica ederim. Kolay gelsin.