Hücreye veri girip çıktıktan sonra İmleç in combobox a geçmesi

[sdegirmenci]

Değerli Hocalarım Merhaba;
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" Then [B6].Select
If Target.Address = "$B$6" Then [C6].Select
If Target.Address = "$C$6" Then [D6].Select

'"d6" hücresine değer girip enter dedikten sonra İmleç Combobox1 'e geçsin ve aynı zamanda kendiliğinden liste açılsın.Bu mümkün olabilirmi acaba.Yardımılarınız için şimdiden çok teşekkür ederim.

End Sub

 

[Orion1]

Böylemi.

Private Sub ComboBox1_Click()
Range("H7").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" Then [B6].Select
If Target.Address = "$B$6" Then [C6].Select
If Target.Address = "$C$6" Then [D6].Select
If Target.Address = "$D$6" Then
    ComboBox1.Activate
    ComboBox1.DropDown
    
End If
End Sub

 

[sdegirmenci]

Evren Hocam İlginize çok teşekkür ederim. İşlerinizin kolay gelmesi dileğiyle.

 

[Orion1]

Evren Hocam İlginize çok teşekkür ederim. İşlerinizin kolay gelmesi dileğiyle.

Rica ederim.
İyi çalışmalar.

 

[sdegirmenci]

Evren Hocam Çok oluyorum ama Combobovx seçimi yapıldıktan sonra tekrar hücreyi seçmesi için (örnek "h7" hücresi) hangi kod ilave etmek gerekir

 

[Orion1]

Evren Hocam Çok oluyorum ama Combobovx seçimi yapıldıktan sonra tekrar hücreyi seçmesi için (örnek "h7" hücresi) hangi kod ilave etmek gerekir

2 numaralı mesajdan inidrebilirsiniz.

Private Sub ComboBox1_Click()
Range("H7").Select
End Sub

 

[sdegirmenci]

Hocam çok teşekkür ederim. Tam istediğim gibi.

 

[Orion1]

Hocam çok teşekkür ederim. Tam istediğim gibi.

Rica ederim.
İyi çalışmalar.