Comboboxla belirlenen konuma veri transferiveri

[serkan1978]

Konu Hakkinda Yardimda Bulunacak ArkadaŞlara Şİmdİden TeŞekkÜrler. Ek'te SunduĞum Belgede Comboboxlarda Adlari Lİstelenen KİŞİlerİ (userformda OlduĞu Şekİlde) Muhtira Sayfasindakİ İmza Bloklarina SeÇİm Yaparak Adi Soyadi, GÖrevİ, Sİcİlİ, GÖrev Yerİ Bİlgİlerİ İle Bİrlİkte TaŞimak İstİyorum. Yardimci Olursaniz Sevİnİrİm...

 

[Levent Menteşoğlu]

Combobox1e aşağıdaki kodu yazın. Diğerlerinide aynı mantıkla yapabilirsiniz.

Private Sub ComboBox1_Change()
sat = ComboBox1.ListIndex + 90
Range("MUHTIRA!H68").Value = ComboBox1.Value
Range("MUHTIRA!H69").Value = Cells(sat, "ac")
Range("MUHTIRA!H70").Value = Cells(sat, "ad")
Range("MUHTIRA!H71").Value = Cells(sat, "ae")
End Sub

 

[serkan1978]

çok teşekkürler...