Sutuna değer yazdırma

[seddur]

Merhabalar.Liste adlı sayfada "A" sütununda çeşitli rakamlar var."G" sutunu ise boş.Lİstboxdan seçtiğim rakama ait örneğin 1 yazan satırların "G" sutununa bir tane NAKİT diye yazacak diğer 1 yazan satırların "G" sutununa ise tırnak işareti koyacak bir kod gerekiyor.Yardımcı olursanız sevinirim.Aşağıya fikir vermesi açısından kod paylaşıyorum ancak bu kod sadece tırnak işareti koyuyor NAKİT diye yazmıyor.

ListBox3.List(i, 6) = "NAKİT"
For i = 1 To ListBox3.ListCount - 1
ListBox3.List(i, 6) = """"
For x = 2 To Sheets("Liste").Cells(Rows.Count, "a").End(3).Row
If Sheets("Liste").Cells(x, "a") = ListBox4.ListIndex And Sheets("Liste").Cells(x, "g") = "" Then
Sheets("Liste").Cells(x, "g") = ListBox3.List(ListBox3.ListCount - i, 6)
End If
Next: Next

 

[seddur]

Paylaştığım kod ile önce listbox3 e NAKİT ve tırnak işareti yazdırıyorum ki oraya kadar doğru yapıyor daha sonra liste sayfasına değerleri aktarıyorum.Ama dediğim gibi sadece tırnak işaretleri konuyor.

 

[ÖmerFaruk]

Fikir vermesi için paylaştığınzı kod çalışan kodunuz mu?
Ya da dosyanızı bir ekleyin öyle bakalım.

 

[seddur]

Yazdığım kod kısmen çalışıyor.Eklediğim dosyaya dilim döndüğünce açıklama yazdım.Kod NAKİT butonunda yazılı.

 

[ÖmerFaruk]

Deneyin lütfen

Private Sub CommandButton5_Click()
ListBox3.List(i, 6) = "NAKİT"
For i = 1 To ListBox3.ListCount - 1
ListBox3.List(i, 6) = vbNullString
For x = 2 To Sheets("Liste").Cells(Rows.Count, "a").End(3).Row
If Sheets("Liste").Cells(x, "a") = ListBox4.ListIndex And Sheets("Liste").Cells(x, "g") = "" Then
Sheets("Liste").Cells(x, "g") = ListBox3.List(ListBox3.ListCount - i, 6)
End If
Next: Next

 

[seddur]

Maalesef "G" sutununa herhangi bir değer yazmıyor.

 

[ÖmerFaruk]

Maalesef ben de ne yapmak istediğinizi anlamadım.
Manuel olarak AnaSayfa daki verileri doldurur musunuz?

 

[seddur]

Fikir vermesi açısından yapmak istediğimiz ekranda göründüğü gibi olacak.Masa 1 e ait değerler görünmekte

 

[seddur]

Daha detaylı görüntü

 

[ÖmerFaruk]

Private Sub CommandButton5_Click()
For x = 2 To Sheets("Liste").Cells(Rows.Count, "a").End(3).Row
    If Sheets("Liste").Cells(x, "a") = ListBox4.ListIndex And Sheets("Liste").Cells(x, "g") = "" Then
        say = say + 1
        If say > ListBox3.ListCount Then Exit Sub
        If say = 1 Then
            Sheets("Liste").Cells(x, "g") = "NAKİT"
            ListBox3.List(say - 1, 6) = "NAKİT"
        Else
            Sheets("Liste").Cells(x, "g") = """"
            ListBox3.List(say - 1, 6) = """"
        End If
    End If
Next
End Sub

 

[seddur]

Olmuş üstadım,çok sağol.