- Katılım
- 17 Nisan 2012
- Mesajlar
- 12
- Excel Vers. ve Dili
- 2010 office
- Altın Üyelik Bitiş Tarihi
- 03-10-2024
Private Sub CommandButton4_Click()
Dim maliyetoplamx As Double
Sheets("maliyetgecici").Select 'EXCEL SAYFASINDA maliyetgecici SAYFASINI SEÇEN KOD
'Range("C2").End(xlDown).Offset(1, 0).Select
Range("C2").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
yenisatir = yenisatir + 1 'ALT SATIRA EKLEME
Sheets("maliyetgecici").Range("C" & yenisatir).Value = TextBox2.Value
Sheets("maliyetgecici").Range("D" & yenisatir).Value = TextBox3.Value
Sheets("maliyetgecici").Range("E" & yenisatir).Value = TextBox4.Value
maliyetoplamx = Application.WorksheetFunction.Sum(Sheets("maliyetgecici").Range("I2:I5000").Value)
TextBox1.Value = maliyetoplamx
listeyiyenile
---------------------------------------------------------
End Sub
Sub listeyiyenile()
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True
ListBox1.RowSource = "maliyetgecici!A2:I" & yenisatir
ListBox1.ColumnWidths = "220,70,100,70,100,100,100,100,100"
End Sub
Yukarıda bulunan kod kısmında dolu olan hücrenin hemen altına inip textboxlara yazılar yazıp ekle butonuna basıp boş olan hücreye yazdırmak istiyorum
Böyle yaptığım zaman dolu olan hücrenin üzerine yazma yapıyor
c2 den başlayıp c10 kadar olan hücre dolu diyelim
c11 boş hücre c11 olan hücreye textboxlara yazdığım veriyi c11 kaydetsin istiyorum . Bir türlü geçemiyorum . yardımcı olursanız sevinirim
Dim maliyetoplamx As Double
Sheets("maliyetgecici").Select 'EXCEL SAYFASINDA maliyetgecici SAYFASINI SEÇEN KOD
'Range("C2").End(xlDown).Offset(1, 0).Select
Range("C2").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
yenisatir = yenisatir + 1 'ALT SATIRA EKLEME
Sheets("maliyetgecici").Range("C" & yenisatir).Value = TextBox2.Value
Sheets("maliyetgecici").Range("D" & yenisatir).Value = TextBox3.Value
Sheets("maliyetgecici").Range("E" & yenisatir).Value = TextBox4.Value
maliyetoplamx = Application.WorksheetFunction.Sum(Sheets("maliyetgecici").Range("I2:I5000").Value)
TextBox1.Value = maliyetoplamx
listeyiyenile
---------------------------------------------------------
End Sub
Sub listeyiyenile()
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True
ListBox1.RowSource = "maliyetgecici!A2:I" & yenisatir
ListBox1.ColumnWidths = "220,70,100,70,100,100,100,100,100"
End Sub
Yukarıda bulunan kod kısmında dolu olan hücrenin hemen altına inip textboxlara yazılar yazıp ekle butonuna basıp boş olan hücreye yazdırmak istiyorum
Böyle yaptığım zaman dolu olan hücrenin üzerine yazma yapıyor
c2 den başlayıp c10 kadar olan hücre dolu diyelim
c11 boş hücre c11 olan hücreye textboxlara yazdığım veriyi c11 kaydetsin istiyorum . Bir türlü geçemiyorum . yardımcı olursanız sevinirim