makroları ile aynı satıra kayıt ettirme

[yildirimm]

merhaba arkadaşlar yaptıgım caslısmada tarih yazıdlıgı vakit değerleri otomatik olarak hep üs üste topluor ben sen alt altta gelmesini istiyorum toplaması değil formül aşağıda

Private Sub CommandButton1_Click()
Sheets(ComboBox2.Text).Select
son = Cells(65536, 5).End(xlUp).Row
For i = 1 To 7
If i >= 4 And i <= 7 Then
Cells(son + 1, i).Value = Controls("TextBox" & i).Value * 1
Else
Cells(son + 1, i).Value = Controls("TextBox" & i).Value
End If
Next
Cells(son + 1, "o").Value = ComboBox1.Value
Cells(son + 1, "p").Value = ComboBox3.Value
End Sub



kayde butonuna bas&#305;nca de&#287;erler sayfalar&#305;n katogorilerine otomatik gidior ama ayn&#305; tarih olursa de&#287;eleri &#252;st &#252;stte topluor benim istedi&#287;im toplamas&#305; de&#287;il alt altta kaydederek yazmas&#305; &#351;imdiden t&#351;kler yani yanyana de&#287;erleri yazmas&#305; desem daha do&#287;ru olur

 

[Recep İpek]

son = Cells(65536, 5).End(xlUp).Row+1

olarak deneyebilirmisiniz?

 

[yildirimm]

sayın ripek denedim ama bu elde bi satır boş bırakarak yapıyor örnek dosyayı ekliorum aynı tarihde değerleri girip misal st1 e kayı yaptirin 4 5 tane kalınlığa 2 yazın yeterli toplam m3 vs üst üstte topluor ben değerlerini yanına gelmesi yani karşısına gelmesini ve alt alta sıralı yapmasını istiorum tşkler

 

[yildirimm]

san&#305;r&#305;m anlat&#305;mda biraz bocalad&#305;m ac&#305;k anlatmak gerekirse &#351;imdi ac&#305;lan forma tarih ve bilgileri giriniz kafadan sallama de&#287;erler sadece kal&#305;nl&#305;&#287;a 2 yaz&#305;n&#305; sonra st1 se&#231;ip 2 3 defa kaydediniz ve toplam m3 bak&#305;n&#305;z st1 de hepsini &#252;st &#252;ste topluyuyor ayn&#305; tarihli &#351;eyleri benim istedi&#287;i&#287;m &#252;st &#252;stte toplamas&#305; de&#287;il yani kaydete bas&#305;ld&#305;mm&#305; komple tek sat&#305;r halinde b&#252;t&#252;n verileri girmesi &#351;imdiden ilginize t&#351;kler

 

[zafer]

Merhaba

Kodların toplam almakla ilgisi yok Sizin J sütundaki hücrelerinizdeki formüle İlgili

J4
....... TOPLA.ÇARPIM(($A$5:$A$8=A5)*($I$5:$I$8))))

A sütünunda tarih var Aynı tarihli I sütunundaki verileri topluyor.

 

[yildirimm]

zafer hocam hakl&#305;s&#305;n&#305;z bunu nas&#305;l d&#252;zeltebiliriz

 

[xxcell]

&#214;ncelikle CommandButton1_Click() olay&#305;na ;

son = Cells(65536, 5).End(xlUp).Row + 1 yazm&#305;&#351;s&#305;n

sonrada;

Cells(son + 1, i).Value = ...

diye i&#351;lem yapm&#305;&#351;s&#305;n

bu durumda sonsat&#305;rdan sonra bir bo&#351;luk fazla verir.

son = Cells(65536, 5).End(xlUp).Row olarak d&#252;zel (+1 'i sil)

 

[xxcell]

Toplam m3'te yazdığınız fonksiyon şu an;
Kendisinden yukarda aynı tarih yoksa
A5:A8 arası tarihler bulunduğu satırla eşleşiyorsa I sütunundaki değerleri toplatıyor.

Lütfen TOPLAM M3'te ne yapmak istediğinizi açık ifade ediniz.

 

[yildirimm]

&#351;imdi row+1 denemi&#351;tim onu sildim toplam m3 de yapmak istedi&#287;im bizim kal&#305;nl&#305;klar&#305;m&#305;z var misal

1,5 = 2,3
2 = 2,8
3 = 3,8
4=4,8

m3 bulurken once m2 alioruz daha sonra misal bu ta&#351; 2 cm likse yani de&#287;eri 2,8 m2*2,8/100 dedikmi m3 buluoruz toplam m3 de toplam m3 de m3 verior ama sorunu cozdum benim biraz mantik hatamdan olmu&#351; anlad&#305;&#287;&#305;m kadar&#305; ile &#252;st&#252;ne toplatmak istedi&#287;im i&#231;in o &#351;ekilde oluyor

toplam m3 otomatik bulmak i&#231;in

 

[zafer]

Merhaba

Sn.xxcell
Aşağıdaki linke bakabilirsiniz.

userformdaki bilgileri sayfayalara otomatik olarak kaydettirmek