ComBobox ilk tıklamada seçim yapmıyor.

[mesutaygun70]

Combobox ta açılan pencerede ilk tıklamada seçim yaptığım seçenek gelmezken, ikinci tıklamada geliyor. Aşağıdaki gibi kod var. Ne yapabilirim ilk tıklamada seçimimin gelmesi için.


Private Sub ComboBox1_Change()
Sheets("KİŞİLER").Select
Range("AB1").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(R1C27,C1:C4,2,0),""YANLIŞ"")"
Range("AC1").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(R1C27,C1:C4,3,0),""YANLIŞ"")"
Range("AD1").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(R1C27,C1:C4,4,0),""YANLIŞ"")"
Sheets("İZİNLER").Select
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.
Eğer işe yaramazsa dosyanız ekleyin kontrol edelim.
Dosyanızda özel bilgiler varsa onları örnek verilerle değiştirerek ekleyebilirsiniz.

Private Sub ComboBox1_Change()
    With Sheets("KİŞİLER")
        .Range("AB1").FormulaR1C1 = "=IFERROR(VLOOKUP(R1C27,C1:C4,2,0),""YANLIŞ"")"
        .Range("AC1").FormulaR1C1 = "=IFERROR(VLOOKUP(R1C27,C1:C4,3,0),""YANLIŞ"")"
        .Range("AD1").FormulaR1C1 = "=IFERROR(VLOOKUP(R1C27,C1:C4,4,0),""YANLIŞ"")"
    End With
End Sub