merhaba abilerim bir sorum olacaktı düzenle dediğimde caride düzenleme yapıyor ama genelde en üstte alan kaydı düzenliyor fiş numarasına ait her iki tarfdada yani carinin içinde ve genelde yer alan fiş numarasına ait veriyide düzenlemesini istiyorum birde silme işlemi yaptıgımda tüm satırı siliyor ben sadece j sutubnuna kadar silme işlemini yapmasını istiyorum çünkü j den sonra ödeme bilgileri yer alıyor bunları nasıl yapabilirim
düzenle kodları burda
Private Sub CommandButton5_Click()
'-----------Ürün Kayıt Sayfası Düzenle İşlemi-------------
Dim x As Long
Dim y As Long
txtad = ActiveSheet.Range("C2")
x = Txtfis.Value
Range("b18:b10000").Find(x).Select
y = ActiveCell.Row
'Sheets("GENEL").Range("a" & y).Value = Txtfis.Value
Sheets("GENEL").Range("B" & y).Value = CDate(txttarih.Value)
Sheets("GENEL").Range("C" & y).Value = txtad.Value
Sheets("GENEL").Range("D" & y).Value = ComboBox1.Value
Sheets("GENEL").Range("E" & y).Value = txtplaka.Value
Sheets("GENEL").Range("F" & y).Value = txtnakliye.Value
Sheets("GENEL").Range("G" & y).Value = CDate(txtodeme.Value)
Sheets("GENEL").Range("H" & y).Value = txtfiyat.Value
Sheets("GENEL").Range("I" & y).Value = txtkg.Value
'ActiveSheet.Range("b" & y) = Txtfis.Value
ActiveSheet.Range("C" & y) = CDate(txttarih.Value)
ActiveSheet.Range("D" & y) = ComboBox1.Value
ActiveSheet.Range("E" & y) = txtplaka.Value
ActiveSheet.Range("F" & y) = txtnakliye.Value
ActiveSheet.Range("G" & y) = CDate(txtodeme.Value)
ActiveSheet.Range("H" & y) = txtfiyat.Value
ActiveSheet.Range("I" & y) = txtkg.Value
Txtfis.Value = ""
ComboBox1.Value = ""
txtplaka.Value = ""
txtnakliye.Value = ""
txtfiyat.Value = ""
txtkg.Value = ""
txttarih.Value = ""
txtodeme.Value = ""
End Sub
düzenleme ve silme işlemi
-
- Mesajlar: 3
- Kayıt: Pzr Haz 30, 2024 12:52 pm
- Lokasyon: şanlıurfa
- Meslek: Bilgisayar Programcılığı Teknikeri
- Adınız: mehmet
- Soyadınız: demir
düzenleme ve silme işlemi
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 3 Cevaplar
- 1453 Görüntüleme
-
Son mesaj gönderen Tarkan VURAL
-
- 2 Cevaplar
- 965 Görüntüleme
-
Son mesaj gönderen myayla
-
- 6 Cevaplar
- 3315 Görüntüleme
-
Son mesaj gönderen Engin
-
- 1 Cevaplar
- 809 Görüntüleme
-
Son mesaj gönderen sahin
-
-
Buton İle yedek alma ve Kod, UserForm, Modul Silme ?
gönderen Beyfendi » » forum Genel Makro Paylaşımları - 7 Cevaplar
- 2385 Görüntüleme
-
Son mesaj gönderen erseldemirel
-