• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sipariş Aktarma

P

programer

Katılım
26 Mayıs 2005
Mesajlar
609
Excel Vers. ve Dili
Office 2022 - Türkçe
Arkadaşlar herkese iyi geceler. Siparişler için bir form hazırladım. Bul'u kullanarak veriyi ListView'e alıyorum. ListView'deki veriye çift tıkladığım zaman Siparis_Tnt sayfasındaki verileri Siparis_Frm üzerine alıyorum buraya kadar bir problem yok. Fakar Siparis_Frm üzerindeki MAMUL BİLGİLERİ kısmınada Siparis_Detay_Tnt sayfasındaki verileri de tek tek TextBoxlara almak istiyorum. Bunu nasıl yapabilirim. Örnek Dosya ektedir.
 
Son düzenleme:
Sayın programer,

Dosyanızda küçük bir bölümü düzenledim. İnceleyip ona göre geri kalan kısmı kendiniz ayarlayabilirsiniz.

Kolay gelsin, Saygılarımla...
 
Sayın Sertkaya yardımınız için teşekkür ederim. Yalnız benim istediğim gibi değil. Benim yapmak istedigim ListView'e çift tıkladığımda VSIPNO2.Text'indeki veriyi Siparis_Detay_Tnt sayfasında C sütününda arayıp bu veriye karşılık gelen kodların aktarılmasını istiyorum.
 
Arkadaşlar ListView Kodunu aşağıdaki gibi değiştirdim Çalışıyor ama sada 1 tane stok kodunu aktarıyor

Kod: 
Private Sub ListView1_DblClick()
Dim Y As Integer
Select Case TextBox1.Value
       Case "Siparis_Tnt"
            Select Case txtsira.Value
                   Case "0"
                        Siparis_Frm.VSIPNO1 = ListView1.SelectedItem.ListSubItems(1).Text
                        Siparis_Frm.VSIPNO2 = ListView1.SelectedItem.ListSubItems(2).Text
                        Siparis_Frm.SIPTAR = ListView1.SelectedItem.ListSubItems(3).Text
                        Siparis_Frm.STUR = ListView1.SelectedItem.ListSubItems(4).Text
                        Siparis_Frm.TESTAR = ListView1.SelectedItem.ListSubItems(5).Text
                        Siparis_Frm.TOL = ListView1.SelectedItem.ListSubItems(6).Text
                        Siparis_Frm.DURUM = ListView1.SelectedItem.ListSubItems(7).Text
                        Siparis_Frm.OSRT = ListView1.SelectedItem.ListSubItems(8).Text
                        Siparis_Frm.SELM = ListView1.SelectedItem.ListSubItems(9).Text
                        Siparis_Frm.PCNS = ListView1.SelectedItem.ListSubItems(10).Text
                        Siparis_Frm.AMBKD = ListView1.SelectedItem.ListSubItems(11).Text
                        Siparis_Frm.ACIKLAMA = ListView1.SelectedItem.ListSubItems(12).Text
                        Siparis_Frm.FK = ListView1.SelectedItem.ListSubItems(13).Text
                        Siparis_Frm.FRMISK = ListView1.SelectedItem.ListSubItems(14).Text
                        Siparis_Frm.FRMISK1 = ListView1.SelectedItem.ListSubItems(15).Text
                        Siparis_Frm.KDV = ListView1.SelectedItem.ListSubItems(16).Text
                        Siparis_Frm.STUT = ListView1.SelectedItem.ListSubItems(17).Text
                        Siparis_Frm.ISKTUT = ListView1.SelectedItem.ListSubItems(18).Text
                        Siparis_Frm.ARTOP = ListView1.SelectedItem.ListSubItems(19).Text
                        Siparis_Frm.KDVTUT = ListView1.SelectedItem.ListSubItems(20).Text
                        Siparis_Frm.GTOP = ListView1.SelectedItem.ListSubItems(21).Text

                    For Each t In Worksheets("Siparis_Detay_Tnt").Range("C2:C" & WorksheetFunction.CountA(Worksheets("Siparis_Detay_Tnt").[C1:C65000]))
                        If t = Siparis_Frm.VSIPNO2.Text Then
                            For X = 1 To 25
                            If Siparis_Frm.Controls("STK" & X) = "" Then
                                Y = Sheets("Siparis_Detay_Tnt").Range("C:C").Cells.Find(What:=Siparis_Frm.VSIPNO2, LookIn:=xlValues).Row
                                Siparis_Frm.VSIPNO2.Value = Siparis_Frm.VSIPNO2
                                Siparis_Frm.Controls("STK" & X) = Sheets("Siparis_Detay_Tnt").Cells(Y, 4)
                                Exit For
                            End If
                            Next
                            Exit Sub
                        End If
                    Next t
            
            End Select
End Select
Unload Me
End Sub
 
Arkdaşlar aşağıda kırmızı renkli satırı kaldırdığım zamanda TextBoxların hepsine aynı kodu yazıyor. Bu Kodu nasıl düzenleye bilirim yardımcı olabilirmisiniz.

Kod: 
                    For Each t In Worksheets("Siparis_Detay_Tnt").Range("C2:C" & WorksheetFunction.CountA(Worksheets("Siparis_Detay_Tnt").[C1:C65000]))
                        If t = Siparis_Frm.VSIPNO2.Text Then
                            For X = 1 To 25
                            If Siparis_Frm.Controls("STK" & X) = "" Then
                                Y = Sheets("Siparis_Detay_Tnt").Range("C:C").Cells.Find(What:=Siparis_Frm.VSIPNO2, LookIn:=xlValues).Row
                                Siparis_Frm.VSIPNO2.Value = Siparis_Frm.VSIPNO2
                                Siparis_Frm.Controls("STK" & X) = Sheets("Siparis_Detay_Tnt").Cells(Y, 4)
                                [COLOR="Red"]Exit For[/COLOR]
                            End If
                            Next
                            Exit Sub
                        End If
                    Next t
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst