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