Kolay Yemek Lİstesİ Hazirlama

[duranproject]

önce iyi çalışmalar dilerim. Arkadaşlar benim problemim şu:
sayfa1deki verileri vb de userforma aktarıp, sonra da refedit yardımıyla istediğim hücreye yapıştırmak istiyorum. Ben userformu çizdim. vb de duruyor. Örneğin userformda comboboxta sabah kahvaltısı seçtiğim zaman listboxta sabah kahvaltısı ile ilgili verilerin sıralanmasını istiyorum. Tabii bu söylediğim öğle ve ikindi için de geçerli... Sonra da userformda sabah kahvaltısını seçtiğim zaman listboxta olan verilere çift tıkladığım zaman önceden seçmiş olduğum hücreye yapışmasını istiyorum. Eğer aynı hücreye birden fazla veriyi yapıştımak istiyorsam da çift tıklayarak yapıştırayım.
Arkadaşlar bana yardımcı olursanız, sevinirim.

 

[duranproject]

Lütfen yardım ediniz...

 

[duranproject]

double click yapıştırma

şimdi biraz üzerinde uğraştım. bu dosyayı biraz düzenledim. Tek bir şey kaldı listboxtaki istediğimiz verilerin çalışma sayfalarında herhangi bir hücrede doubleclick yöntemiyle yapışmasını istiyorum. Lütfen yardım...

 

[duranproject]

verileri belirlediğimiz hücrelere aktarmak için yardım eder misiniz?

 

[duranproject]

Lütfen az bir şey kaldı, yardım ediniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex < 0 Then Exit Sub
    If RefEdit1 <> "" Then
    BUL = WorksheetFunction.Search("!", RefEdit1, 1)
    If Sheets("" & Mid(RefEdit1, 1, BUL - 1)).Range(Mid(RefEdit1, BUL + 1, 10)) = "" Then
    Sheets("" & Mid(RefEdit1, 1, BUL - 1)).Range(Mid(RefEdit1, BUL + 1, 10)) = ListBox1.Value
    Else
    Sheets("" & Mid(RefEdit1, 1, BUL - 1)).Range(Mid(RefEdit1, BUL + 1, 10)) = Sheets("" & Mid(RefEdit1, 1, BUL - 1)).Range(Mid(RefEdit1, BUL + 1, 10)) & ", " & ListBox1.Value
    End If
    MsgBox "VER&#304; AKTARILMI&#350;TIR.", vbInformation
    End If
End Sub

 

[duranproject]

Çok teşekkürler. Sağolun. Çok makbule geçti.