merhaba arkadaşlar,
Ben aşağıdaki kod ile kapalı excel dosyasına veri aktarıyorum
sıra nosunuda, kayıtlı veri sayısına +1 ekleyip yazdırıyorum
aradaki verinin birini sildirince ,
örnek 8 verim olduğunu düşünürsek aradaki 5.satırdaki veriyi silince,
veri sayuısı 7 olacak +1 eklenince ,
yeni sıra numarasını yine 8 olrak yazacak
ve dolayısıyla 2 tane 8 olan sıra numaram olacak
bunu nasıl düzeltebiliriz.
Açık olan sayfaya şöyle bir kod ile sıra numarasını yeniden sıralatıyordum,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, e As Integer
e = Application.CountA(Range("a:a"))
For i = 2 To e
Cells(i, 1) = i
Next i
End Sub
kapalı excel sayfasına kayıt kodum aşağıdaki gibidir,
Private Sub satıs_Click() 'CARİ SATIŞ KAYIT
'On Error Resume Next
'baglansan
Set kayit = New ADODB.Recordset
Nsql = "SELECT * FROM [cari$] Where UrunGrubu='" & sa2 & "'"
kayit.Open Nsql, baglan, 1, 3
kayit.AddNew
kayit("SiraNo") = sa0 + 1
kayit("Tarih") = sa1
kayit("UrunGrubu") = sa2
kayit("UrunAdi") = sa3
kayit("Miktari") = sa4
kayit("Nevi") = sa5
kayit("BirimFiyati") = sa6
kayit("İskonto") = sa7
kayit("Kdv") = sa8
kayit("NetFiyati") = sa9
kayit("TopTutari") = sa10
kayit("TeslimAlan") = sa11
kayit.Update
sa1.SetFocus
Set kayit = Nothing
SatısAl
End Sub
Selamlar...
Ben aşağıdaki kod ile kapalı excel dosyasına veri aktarıyorum
sıra nosunuda, kayıtlı veri sayısına +1 ekleyip yazdırıyorum
aradaki verinin birini sildirince ,
örnek 8 verim olduğunu düşünürsek aradaki 5.satırdaki veriyi silince,
veri sayuısı 7 olacak +1 eklenince ,
yeni sıra numarasını yine 8 olrak yazacak
ve dolayısıyla 2 tane 8 olan sıra numaram olacak
bunu nasıl düzeltebiliriz.
Açık olan sayfaya şöyle bir kod ile sıra numarasını yeniden sıralatıyordum,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, e As Integer
e = Application.CountA(Range("a:a"))
For i = 2 To e
Cells(i, 1) = i
Next i
End Sub
kapalı excel sayfasına kayıt kodum aşağıdaki gibidir,
Private Sub satıs_Click() 'CARİ SATIŞ KAYIT
'On Error Resume Next
'baglansan
Set kayit = New ADODB.Recordset
Nsql = "SELECT * FROM [cari$] Where UrunGrubu='" & sa2 & "'"
kayit.Open Nsql, baglan, 1, 3
kayit.AddNew
kayit("SiraNo") = sa0 + 1
kayit("Tarih") = sa1
kayit("UrunGrubu") = sa2
kayit("UrunAdi") = sa3
kayit("Miktari") = sa4
kayit("Nevi") = sa5
kayit("BirimFiyati") = sa6
kayit("İskonto") = sa7
kayit("Kdv") = sa8
kayit("NetFiyati") = sa9
kayit("TopTutari") = sa10
kayit("TeslimAlan") = sa11
kayit.Update
sa1.SetFocus
Set kayit = Nothing
SatısAl
End Sub
Selamlar...