Combobox'daki veriyi ve değerlerini seçmek için makro

[Erkand]

Merhaba;

Combobox ile listelediğim bir nevi veri başlıklarını combobox ile seçtiğimde o verinin satırındakiler istediğim sütuna taşımak istiyorum.anlatması biraz karışık başlıkta bile anlatamadım sanırım. örnek dosya üzerinden söylemek gerekirse;

Mxrrp1412 adlı seçeneği combobox'da görüntüledim ve yandaki düğmeden standardı seç dediğimde sayfa3'teki 29. satırdaki bilgiler,sayfa1'deki 3. satıra yazılsın.

Bu program ile çizim programındaki şekile ölçü veriyorum bunun için yapıyorum.Bu anlatmak istediğimi farklı bi' yolla yapmak mümkünse gösterdiğiniz yolu rahatlıkla tercih edebilirim.Son rica olarak yardım eden arkadaş nasıl yapıldığı hakkında küçük bi' özet verirse daha sonra kimseyi uğraştırmadan yapabilmem için minnettar kalırım.

şimdiden yardımlarınız için teşekkür ederim.

 

[Orion1]

Niye örnek dosya ekleyip üzerinde açıklamıyorsunuz.
Bu şekilde Postaki saymak olur.

 

[Erkand]

Niye örnek dosya ekleyip üzerinde açıklamıyorsunuz.
Bu şekilde Postaki saymak olur.

Pardon ya.Eklemiştim ama upload etmeden kapattım sanırım kusura bakmayın

Ekledim şimdi.

 

[Orion1]

Dosyanız ektedir.

Sub standart_sec()
Dim k As Range, sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("Sayfa1")
Set sh3 = Sheets("Sayfa3")
If Range("B16").Value = "" Then
    MsgBox "B16 Hücresinde değer yok." & vbLf & "B16 hücresindeki formül silinmiş olabilir. " _
    & "veya boşluk seçmiş olabilirsiniz" & vbLf & "Kayıt seçilmedi.", vbCritical, "UYARI"
    Exit Sub
End If
Set k = sh3.Range("B13:B1000").Find(Range("B16").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    sh1.Range("B3:K3").Value = sh3.Range("C" & k.Row & ":L" & k.Row).Value
    MsgBox "Standart seçildi." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
    Else
    MsgBox "[ " & Range("B16").Value & " ] İsminde standart bulunamdı.", vbCritical, "UYARI"
End If
End Sub

 

[Erkand]

Çok teşekkür ederim evren hocam. : )

 

[Orion1]

Çok teşekkür ederim evren hocam. : )

Rica ederim.