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.
(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?
(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
(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.
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
(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