• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

ilgili sayfanın sütundaki son hücreyi bulup yazdırma

  1. T

    Çözüldü ilgili sayfanın sütundaki son hücreyi bulup yazdırma

    Private Sub CommandButton3_Click() s = ActiveSheet.Cells(Rows.Count, "B").End(3).Row + 1 If s < 21 Then s = 21 ActiveSheet.Range("B" & s).Value = DTPicker1 ActiveSheet.Range("D" & s).Value = TXTfıyat.Text ActiveSheet.Range("F" & s).Value = TXTadet.Text TXTfıyat.Text = "" TXTadet.Text = "" End...
Geri
Üst