Skip to main content

AccessTr.neT


Userboxta Texbox Verilerinin Sütünlara Girilmesi Forumda Yok

Userboxta Texbox Verilerinin Sütünlara Girilmesi Forumda Yok

Çözüldü #1
Selamlar değerli hocalarım site yöneticisiyim bir program yaptım ona bazı eklemelerde bulundum farklı userformlardan alıntı yaparak her şey çalıştı.
Fakat ben farklı bir sistem denemek istiyorum bu konuda internette hiç bir şey bulamadım. Sorum şu yaptığım userformda ki veriler alt alta satırlara değil de yan yana sütunlara eklensin.
Yani aylar sabit giderler girilsin. ayrıca combobox yan yana sütünlara veri girişi yapsın.
"B1" den başlamak C1,D1,E1..........ZZ1'e kadar girdi kalemleri gider texbox'ta görünsün ve orada olmayan kalemler elle eklenebilsin
Ayrıca dönem arama yaptığında o aya ait girdiler "SelectedData" sayfasına satır olarak eklensin.
Bu konuda yardımlarınızı bekliyorum.
Şimdiden teşekkürler.
.zip KZY Copy.zip (Dosya Boyutu: 466,98 KB | İndirme Sayısı: 7)
Cevapla
#2
(22/06/2021, 02:43)Jer Fin yazdı: userformda ki veriler alt alta satırlara değil de yan yana sütunlara eklensin.
Merhaba.
ilk olarak yukardaki kısmı açıklarmısınız tam olarak?
Cevapla
#3
(23/06/2021, 05:15)feraz yazdı:
(22/06/2021, 02:43)Jer Fin yazdı: userformda ki veriler alt alta satırlara değil de yan yana sütunlara eklensin.
Merhaba.
ilk olarak yukardaki kısmı açıklarmısınız tam olarak?
Selam hocam; örnek 2. satır Ocak ayına ait giderler olacak ve 1. satrıırdaki gider kalemlerinin altına tutarlar yazılacak
yani X1 altına 20tl X2 altına 456 tl gibi olacak şekilde 
6. sutun sadece Mayıs ayına ait gider kalemleri yazılsın gibi.
aramada ise Sadece mayıs ayı harcama kalemleri selectdata sayfasına alt alta sıralansın istiyorum forumlarda internette yabancı sitelerde bile araştırdım cir türlü bulamadım.
Şimdiden teşekkürler.

https://streamable.com/k5gu75
.zip kuzey.zip (Dosya Boyutu: 3,68 MB | İndirme Sayısı: 2)
Son Düzenleme: 23/06/2021, 11:17, Düzenleyen: Jer Fin.
Cevapla
#4
(23/06/2021, 10:22)Jer Fin yazdı:
(23/06/2021, 05:15)feraz yazdı:
(22/06/2021, 02:43)Jer Fin yazdı: userformda ki veriler alt alta satırlara değil de yan yana sütunlara eklensin.
Merhaba.
ilk olarak yukardaki kısmı açıklarmısınız tam olarak?
Selam hocam; örnek 2. satır Ocak ayına ait giderler olacak ve 1. satrıırdaki gider kalemlerinin altına tutarlar yazılacak
yani X1 altına 20tl X2 altına 456 tl gibi olacak şekilde 
6. sutun sadece Mayıs ayına ait gider kalemleri yazılsın gibi.
aramada ise Sadece mayıs ayı harcama kalemleri selectdata sayfasına alt alta sıralansın istiyorum forumlarda internette yabancı sitelerde bile araştırdım cir türlü bulamadım.
Şimdiden teşekkürler.

https://streamable.com/k5gu75
Tamam abey bugün bakarım.
Cevapla
#5
Alttaki gibi olabilir.Aylerın ve kalemlerim kesiştiği yere ekler.
Tabii Tr karakterlerden dolayı bulamıyor bazılarını.Denemek için kalem kısmına aaa elkedim ve buldu.
Tr karakter olayı için kod düzenlenebilir.

Private Sub CommandButton1_Click() 'Saving Button
    Dim bulAy As Range, bulKalem As Range

    If TextBox2.Value = "" Then
        MsgBox "Gider Fatura Tar.", vbExclamation
        TextBox2.SetFocus
        Exit Sub
    End If
   
    With Sheets("Data")
        Set bulAy = .Range("A:A").Find(Me.ComboBox2.Value, , xlValues, 1)
        Set bulKalem = .Rows(1).Find(Me.ComboBox3.Value, , xlValues, 1)
        If Not bulAy Is Nothing And Not bulKalem Is Nothing Then
            Call Main 'Progress Bar
            .Cells(bulAy.Row, bulKalem.Column) = Me.TextBox4.Value
           
            MsgBox "Registration is successful", vbApplicationModal, ""
            ListBox1.List = .Range("A2:L" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
            TextBox14.Value = ListBox1.ListCount
        Else
            GoTo son
        End If
    End With
son:
    Set bulAy = Nothing
    Set bulKalem = Nothing
End Sub
Cevapla
#6
(23/06/2021, 17:16)feraz yazdı: Alttaki gibi olabilir.Aylerın ve kalemlerim kesiştiği yere ekler.
Tabii Tr karakterlerden dolayı bulamıyor bazılarını.Denemek için kalem kısmına aaa elkedim ve buldu.
Tr karakter olayı için kod düzenlenebilir.

Private Sub CommandButton1_Click() 'Saving Button
    Dim bulAy As Range, bulKalem As Range

    If TextBox2.Value = "" Then
        MsgBox "Gider Fatura Tar.", vbExclamation
        TextBox2.SetFocus
        Exit Sub
    End If
   
    With Sheets("Data")
        Set bulAy = .Range("A:A").Find(Me.ComboBox2.Value, , xlValues, 1)
        Set bulKalem = .Rows(1).Find(Me.ComboBox3.Value, , xlValues, 1)
        If Not bulAy Is Nothing And Not bulKalem Is Nothing Then
            Call Main 'Progress Bar
            .Cells(bulAy.Row, bulKalem.Column) = Me.TextBox4.Value
           
            MsgBox "Registration is successful", vbApplicationModal, ""
            ListBox1.List = .Range("A2:L" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
            TextBox14.Value = ListBox1.ListCount
        Else
            GoTo son
        End If
    End With
son:
    Set bulAy = Nothing
    Set bulKalem = Nothing
End Sub
Hocam oldu sağolun fakat bu hataları verdi resimleri ekte
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da