Listbox ve sayfaya kaydet sorunu

[wqazx]

Herkese merhaba ekte gönderdiğim dosyada üzerinde uğraştığım bir çalışmam var.

Buradaki sorunum şu:

cekler bölümündeki butonların "cekler" isimli sayfa üzerinde çalışmasını ve cekler sayfasının alttaki listbox2'de gözükmesini istiyorum.Yardım edecek arkadaşlara şimdiden teşekkürler.

 

[wqazx]

Yardım edecek bir arkadaş yok mu acaba sorunum acil de.

 

[xxrt]

ListBoxun RowSource Ã?zelliğine "cekler" sayfasının
cekler!A1:G100 aralığını yazmanız gerek.
Ekte inceleyin.

 

[idogus]

Aşağıdaki kodları incelemende fayda olacağını düşünüyorum. cekler sayfasını listbox da görüntülemen mümkün değil bunun için listview kullanmalısın. macro örneklerindeki commandbuton örneği başlıklı çalışmama bir göz at istersen.

Private Sub cmdEkle_Click()
    On Error Resume Next
    Dim Ekleme As ListItem
    Dim tur
    If cmbFirma.Value <> "BSH" And opStandart.Value <> False Then Mesaj = MsgBox _
    ("Lütfen sevkıyat türüne dikkat edin ! Diğer olaması gerekebilir !(Standart, İade, İşçilik, Diğer)" _
    , , FormBaslik)
    Satirsay = cmbParcaNo.ListIndex + 2
        If cmbParcaNo.ListIndex < 0 Then
            HataMesaji = MsgBox("Girdiğiniz ürün numarası hatalı ! Lütfen kontrol ederek tekrar giriniz !", vbCritical, FormBaslik)
        Else
            If lblToplamMiktar.Caption <> Empty Then
                If lvwKayitlar.ListItems.Count < 11 Then
                    Set Ekleme = lvwKayitlar.ListItems.Add(, , cmbFirma)
                    Ekleme.SubItems(1) = Format(txtTarih, "dd/mm/yy")
                    Ekleme.SubItems(2) = Sheets("Plist").Cells(Satirsay, 3)
                    Ekleme.SubItems(3) = cmbParcaNo
                    Ekleme.SubItems(4) = Sheets("Plist").Cells(Satirsay, 2)
                        If opStandart = True Then
                            tur = "Standart"
                        ElseIf opIade = True Then
                            tur = "Iade"
                        ElseIf opIscilik = True Then
                            tur = "Iscilik"
                        ElseIf opNumune = True Then
                            tur = "Numune"
                        Else
                            tur = "Diger"
                        End If
                    Ekleme.SubItems(9) = tur
                    Ekleme.SubItems(7) = Format(lblTeslimNo.Caption, "00000")
                    Ekleme.SubItems(8) = Format(lblSiparisNo.Caption, "00000")
                    Ekleme.SubItems(5) = Format(lblToplamMiktar.Caption, "###,###")
                    Ekleme.SubItems(6) = Sheets("Menu").Range("IrsaliyeNo") + 1
                        If opAlcak = True Then
                            amb = "Alçak"
                        Else
                            amb = "Yüksek"
                        End If
                    Ekleme.SubItems(10) = amb
                    Ekleme.SubItems(11) = txtMiktar
                    Ekleme.SubItems(12) = txtYarimMiktar1
                    Ekleme.SubItems(13) = txtYarimMiktar2
                    Ekleme.SubItems(14) = txtYarimMiktar3
                    Ekleme.SubItems(15) = txtYarimMiktar4
                    Ekleme.SubItems(16) = txtYarimMiktar5
                    txtMiktar = 0
                    txtYarimMiktar1 = 0
                    txtYarimMiktar2 = 0
                    txtYarimMiktar3 = 0
                    txtYarimMiktar4 = 0
                    txtYarimMiktar5 = 0
                Else
                    FazlaMesaji = MsgBox("11 kalemden fazlasına tek irsaliye yazamazsınız. Lütfen bitirip yeni irsaliyeye geçiniz.", _
                    vbCritical, FormBaslik)
                End If
            Else
                BosMesaji = MsgBox("İrsaliye kesebilmek için miktar hanelerinden en az birinin doldurulması gereklidir !", _
                vbCritical, FormBaslik)
            End If
        End If
        Deaktif
        cmbParcaNo.SetFocus
End Sub

 

[wqazx]

Çok teşekürler arkadaşlar.Hemen deniyorum.

 

[wqazx]

ListBoxun RowSource Ã?zelliğine "cekler" sayfasının
cekler!A1:G100 aralığını yazmanız gerek.
Ekte inceleyin.

Sn. xxrt çok teşekkür ederim.Çalışıyor.
Tek sorunum kaldı "cekler" isimli pagedeki butonların "cekler" isimli sayfa(sheet) üzerinde işlem yapmaları.Bunu yardımlarınızla halledebilirsem çok sevineceğim.İyi çalışmalar.