Kayıtta Sıralama

[memduh]

Merhaba Arkadaşlar.
ufak bir sorunum var yardımcı olursanız sevinirim.

satd = WorksheetFunction.CountA(Sheets(combobox1 .Value).[d12:d40]) + 12
sath = WorksheetFunction.CountA(Sheets(combobox1 .Value).[h12:h40]) + 12

Sheets(combobox1 .Value).Cells(satd, 4) = CDate(TextBox1.Value)
Sheets(combobox1 .Value).Cells(sate, 5) = (Textbox2.Value)

Burada ilk iki kayıttan sonra eğer textbox1 dolu textbox2 boş ise textbox1 D14, textbox2 ise E14 Sutununa kayıt yapması gerekirken textbox1 D14 Textbox2 ise E13 e kyıt yapıyor.textbox2 ninde sırasıyla ayni E14 e kayıt yapması için yardım lütfen.

 

[memduh]

Hata oldu özür dilerim.
satE = WorksheetFunction.CountA(Sheets(combobox1 .Value).[h12:h40]) + 12

olacak.




Excel2003 Türkçe

 

[danersin]

Kayıtlar hep aynı satıra yapılacaksa ve diyelimki satd ile son satırını tespit ettiğiniz d sütunu her zaman dolu oluyorsa sath'yi hiç kullanmayın ve her ikisi içinde satd kullanın.
yani;

Sheets(combobox1 .Value).Cells(satd, 4) = CDate(TextBox1.Value)
Sheets(combobox1 .Value).Cells(satd, 5) = (Textbox2.Value)

 

[memduh]

Sayın Danersin çok teşekkür ederim.
tam istediğim gibi. Sağolun.