• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listenelenen Verilerin Güncellenmesi

O

OnurSorhan

Katılım
18 Temmuz 2012
Mesajlar
15
Excel Vers. ve Dili
C# VB
Merhabalar,
Yaptığım form üzerinde beyaz alan hücrelere giriş yaparak veri tabanı sayfasına kaydetme işlemini sağlamaktayım.
Bu kaydettiğim dosyaları daha sonra görüntelemek için B33 Hücresine ID yazarak geri listeletebiliyorum fakat bilgi güncellemek istediğimde veri tabanı üzerinden yapmak zorunda kalıyorum bunu yapabilmek için ID numarası ile dosyayı güncelleyebilirmiyim.
 

Ekli dosyalar

Merhaba, yeni bir buton ekleyip bu kodları kullanabilirsiniz.
Kaydet işlemi için kullanılan kodlardır.
Farkı LastRow ile kayıtlı verinin satır numarası alınmış oluyor.
Kod: 
Sub Guncelle()

On Error Resume Next
Dim LastRow  As Long

Set sh2 = Worksheets("Veri Tabanı")
Set sh1 = Worksheets("Yol Gider - Gelir Giriş")


LastRow = sh2.Range("A:A").Find(what:=sh1.Range("B33"), Lookat:=xlWhole).Row


If sh1.Cells(2, 3) = "" Then
  MsgBox "Soför Seçilmeli"
  Exit Sub
End If

If sh1.Cells(3, 3) = "" Then
  MsgBox "Plaka Seçilmeli"
  Exit Sub
End If

If sh1.Cells(4, 3) = "" Then
  MsgBox "Dorse Seçilmeli"
  Exit Sub
End If

If sh1.Cells(5, 3) = "" Then
  MsgBox "Çıkış tarihi yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(6, 3) = "" Then
  MsgBox "Gidiş güzergahı yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(7, 3) = "" Then
  MsgBox "Gidiş navlun bedeli yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(8, 3) = "" Then
  MsgBox "Dönüş güzergahı yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(9, 3) = "" Then
  MsgBox "Dönüş navlun bedeli yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(10, 3) = "" Then
  MsgBox "Şoföre verilen harcirah yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(30, 3) = "" Then
  MsgBox "Şoföre verilen para kuru yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(13, 3) = "" Then
  MsgBox "Başlangıç mazot litresi yazılmalıdır"
  Exit Sub
End If

If sh1.Cells(24, 3) = "" Then
  MsgBox "Başlangıç km'si yazılmalıdır."
  Exit Sub
End If
   
sh2.Cells(LastRow, 1) = LastRow - 1
sh2.Cells(LastRow, 2) = sh1.Cells(2, 3)
sh2.Cells(LastRow, 3) = sh1.Cells(3, 3)
sh2.Cells(LastRow, 4) = sh1.Cells(4, 3)
sh2.Cells(LastRow, 6) = sh1.Cells(5, 3)
sh2.Cells(LastRow, 39) = sh1.Cells(6, 3)
sh2.Cells(LastRow, 40) = sh1.Cells(7, 3)
sh2.Cells(LastRow, 107) = sh1.Cells(8, 3)
sh2.Cells(LastRow, 108) = sh1.Cells(9, 3)
sh2.Cells(LastRow, 30) = sh1.Cells(10, 3)
sh2.Cells(LastRow, 41) = sh1.Cells(30, 3)
sh2.Cells(LastRow, 109) = sh1.Cells(30, 3)
sh2.Cells(LastRow, 7) = sh1.Cells(13, 3)
sh2.Cells(LastRow, 22) = sh1.Cells(24, 3)
sh2.Cells(LastRow, 8) = sh1.Cells(14, 2)
sh2.Cells(LastRow, 9) = sh1.Cells(14, 3)
sh2.Cells(LastRow, 10) = sh1.Cells(15, 2)
sh2.Cells(LastRow, 11) = sh1.Cells(15, 3)
sh2.Cells(LastRow, 12) = sh1.Cells(16, 2)
sh2.Cells(LastRow, 13) = sh1.Cells(16, 3)
sh2.Cells(LastRow, 14) = sh1.Cells(17, 2)
sh2.Cells(LastRow, 15) = sh1.Cells(17, 3)
sh2.Cells(LastRow, 16) = sh1.Cells(18, 2)
sh2.Cells(LastRow, 17) = sh1.Cells(18, 3)
sh2.Cells(LastRow, 18) = sh1.Cells(19, 2)
sh2.Cells(LastRow, 19) = sh1.Cells(19, 3)
sh2.Cells(LastRow, 20) = sh1.Cells(20, 3)
sh2.Cells(LastRow, 21) = sh1.Cells(21, 3)
sh2.Cells(LastRow, 23) = sh1.Cells(25, 3)
sh2.Cells(LastRow, 24) = sh1.Cells(26, 3)
sh2.Cells(LastRow, 25) = sh1.Cells(28, 3)
sh2.Cells(LastRow, 44) = sh1.Cells(4, 4)
sh2.Cells(LastRow, 47) = sh1.Cells(5, 4)
sh2.Cells(LastRow, 50) = sh1.Cells(6, 4)
sh2.Cells(LastRow, 53) = sh1.Cells(7, 4)
sh2.Cells(LastRow, 56) = sh1.Cells(8, 4)
sh2.Cells(LastRow, 59) = sh1.Cells(9, 4)
sh2.Cells(LastRow, 62) = sh1.Cells(10, 4)
sh2.Cells(LastRow, 65) = sh1.Cells(11, 4)
sh2.Cells(LastRow, 68) = sh1.Cells(12, 4)
sh2.Cells(LastRow, 71) = sh1.Cells(13, 4)
sh2.Cells(LastRow, 74) = sh1.Cells(14, 4)
sh2.Cells(LastRow, 77) = sh1.Cells(15, 4)
sh2.Cells(LastRow, 80) = sh1.Cells(16, 4)
sh2.Cells(LastRow, 83) = sh1.Cells(17, 4)
sh2.Cells(LastRow, 86) = sh1.Cells(18, 4)
sh2.Cells(LastRow, 89) = sh1.Cells(19, 4)
sh2.Cells(LastRow, 92) = sh1.Cells(20, 4)
sh2.Cells(LastRow, 95) = sh1.Cells(21, 4)
sh2.Cells(LastRow, 98) = sh1.Cells(22, 4)
sh2.Cells(LastRow, 101) = sh1.Cells(23, 4)
sh2.Cells(LastRow, 42) = sh1.Cells(4, 5)
sh2.Cells(LastRow, 45) = sh1.Cells(5, 5)
sh2.Cells(LastRow, 48) = sh1.Cells(6, 5)
sh2.Cells(LastRow, 51) = sh1.Cells(7, 5)
sh2.Cells(LastRow, 54) = sh1.Cells(8, 5)
sh2.Cells(LastRow, 57) = sh1.Cells(9, 5)
sh2.Cells(LastRow, 60) = sh1.Cells(10, 5)
sh2.Cells(LastRow, 63) = sh1.Cells(11, 5)
sh2.Cells(LastRow, 66) = sh1.Cells(12, 5)
sh2.Cells(LastRow, 69) = sh1.Cells(13, 5)
sh2.Cells(LastRow, 72) = sh1.Cells(14, 5)
sh2.Cells(LastRow, 75) = sh1.Cells(15, 5)
sh2.Cells(LastRow, 78) = sh1.Cells(16, 5)
sh2.Cells(LastRow, 81) = sh1.Cells(17, 5)
sh2.Cells(LastRow, 84) = sh1.Cells(18, 5)
sh2.Cells(LastRow, 87) = sh1.Cells(19, 5)
sh2.Cells(LastRow, 90) = sh1.Cells(20, 5)
sh2.Cells(LastRow, 93) = sh1.Cells(21, 5)
sh2.Cells(LastRow, 96) = sh1.Cells(22, 5)
sh2.Cells(LastRow, 99) = sh1.Cells(23, 5)
sh2.Cells(LastRow, 43) = sh1.Cells(4, 6)
sh2.Cells(LastRow, 46) = sh1.Cells(5, 6)
sh2.Cells(LastRow, 49) = sh1.Cells(6, 6)
sh2.Cells(LastRow, 52) = sh1.Cells(7, 6)
sh2.Cells(LastRow, 55) = sh1.Cells(8, 6)
sh2.Cells(LastRow, 58) = sh1.Cells(9, 6)
sh2.Cells(LastRow, 61) = sh1.Cells(10, 6)
sh2.Cells(LastRow, 64) = sh1.Cells(11, 6)
sh2.Cells(LastRow, 67) = sh1.Cells(12, 6)
sh2.Cells(LastRow, 70) = sh1.Cells(13, 6)
sh2.Cells(LastRow, 73) = sh1.Cells(14, 6)
sh2.Cells(LastRow, 76) = sh1.Cells(15, 6)
sh2.Cells(LastRow, 79) = sh1.Cells(16, 6)
sh2.Cells(LastRow, 82) = sh1.Cells(17, 6)
sh2.Cells(LastRow, 85) = sh1.Cells(18, 6)
sh2.Cells(LastRow, 88) = sh1.Cells(19, 6)
sh2.Cells(LastRow, 91) = sh1.Cells(20, 6)
sh2.Cells(LastRow, 94) = sh1.Cells(21, 6)
sh2.Cells(LastRow, 97) = sh1.Cells(22, 6)
sh2.Cells(LastRow, 100) = sh1.Cells(23, 6)
sh2.Cells(LastRow, 112) = sh1.Cells(4, 7)
sh2.Cells(LastRow, 115) = sh1.Cells(5, 7)
sh2.Cells(LastRow, 118) = sh1.Cells(6, 7)
sh2.Cells(LastRow, 121) = sh1.Cells(7, 7)
sh2.Cells(LastRow, 124) = sh1.Cells(8, 7)
sh2.Cells(LastRow, 127) = sh1.Cells(9, 7)
sh2.Cells(LastRow, 130) = sh1.Cells(10, 7)
sh2.Cells(LastRow, 133) = sh1.Cells(11, 7)
sh2.Cells(LastRow, 136) = sh1.Cells(12, 7)
sh2.Cells(LastRow, 139) = sh1.Cells(13, 7)
sh2.Cells(LastRow, 142) = sh1.Cells(14, 7)
sh2.Cells(LastRow, 145) = sh1.Cells(15, 7)
sh2.Cells(LastRow, 148) = sh1.Cells(16, 7)
sh2.Cells(LastRow, 151) = sh1.Cells(17, 7)
sh2.Cells(LastRow, 154) = sh1.Cells(18, 7)
sh2.Cells(LastRow, 157) = sh1.Cells(19, 7)
sh2.Cells(LastRow, 160) = sh1.Cells(20, 7)
sh2.Cells(LastRow, 163) = sh1.Cells(21, 7)
sh2.Cells(LastRow, 166) = sh1.Cells(22, 7)
sh2.Cells(LastRow, 169) = sh1.Cells(23, 7)
sh2.Cells(LastRow, 110) = sh1.Cells(4, 8)
sh2.Cells(LastRow, 113) = sh1.Cells(5, 8)
sh2.Cells(LastRow, 116) = sh1.Cells(6, 8)
sh2.Cells(LastRow, 119) = sh1.Cells(7, 8)
sh2.Cells(LastRow, 122) = sh1.Cells(8, 8)
sh2.Cells(LastRow, 125) = sh1.Cells(9, 8)
sh2.Cells(LastRow, 128) = sh1.Cells(10, 8)
sh2.Cells(LastRow, 131) = sh1.Cells(11, 8)
sh2.Cells(LastRow, 134) = sh1.Cells(12, 8)
sh2.Cells(LastRow, 137) = sh1.Cells(13, 8)
sh2.Cells(LastRow, 140) = sh1.Cells(14, 8)
sh2.Cells(LastRow, 143) = sh1.Cells(15, 8)
sh2.Cells(LastRow, 146) = sh1.Cells(16, 8)
sh2.Cells(LastRow, 149) = sh1.Cells(17, 8)
sh2.Cells(LastRow, 152) = sh1.Cells(18, 8)
sh2.Cells(LastRow, 155) = sh1.Cells(19, 8)
sh2.Cells(LastRow, 158) = sh1.Cells(20, 8)
sh2.Cells(LastRow, 161) = sh1.Cells(21, 8)
sh2.Cells(LastRow, 164) = sh1.Cells(22, 8)
sh2.Cells(LastRow, 167) = sh1.Cells(23, 8)
sh2.Cells(LastRow, 111) = sh1.Cells(4, 9)
sh2.Cells(LastRow, 114) = sh1.Cells(5, 9)
sh2.Cells(LastRow, 117) = sh1.Cells(6, 9)
sh2.Cells(LastRow, 120) = sh1.Cells(7, 9)
sh2.Cells(LastRow, 123) = sh1.Cells(8, 9)
sh2.Cells(LastRow, 126) = sh1.Cells(9, 9)
sh2.Cells(LastRow, 129) = sh1.Cells(10, 9)
sh2.Cells(LastRow, 132) = sh1.Cells(11, 9)
sh2.Cells(LastRow, 135) = sh1.Cells(12, 9)
sh2.Cells(LastRow, 138) = sh1.Cells(13, 9)
sh2.Cells(LastRow, 141) = sh1.Cells(14, 9)
sh2.Cells(LastRow, 144) = sh1.Cells(15, 9)
sh2.Cells(LastRow, 147) = sh1.Cells(16, 9)
sh2.Cells(LastRow, 150) = sh1.Cells(17, 9)
sh2.Cells(LastRow, 153) = sh1.Cells(18, 9)
sh2.Cells(LastRow, 156) = sh1.Cells(19, 9)
sh2.Cells(LastRow, 159) = sh1.Cells(20, 9)
sh2.Cells(LastRow, 162) = sh1.Cells(21, 9)
sh2.Cells(LastRow, 165) = sh1.Cells(22, 9)
sh2.Cells(LastRow, 168) = sh1.Cells(23, 9)
sh2.Cells(LastRow, 33) = sh1.Cells(29, 5)
sh2.Cells(LastRow, 34) = sh1.Cells(30, 5)
sh2.Cells(LastRow, 37) = sh1.Cells(23, 12)
sh2.Cells(LastRow, 35) = sh1.Cells(29, 8)
sh2.Cells(LastRow, 36) = sh1.Cells(30, 8)
sh2.Cells(LastRow, 175) = sh1.Cells(4, 11)
sh2.Cells(LastRow, 176) = sh1.Cells(4, 12)
sh2.Cells(LastRow, 177) = sh1.Cells(5, 11)
sh2.Cells(LastRow, 178) = sh1.Cells(5, 12)
sh2.Cells(LastRow, 179) = sh1.Cells(6, 11)
sh2.Cells(LastRow, 180) = sh1.Cells(6, 12)
sh2.Cells(LastRow, 181) = sh1.Cells(7, 11)
sh2.Cells(LastRow, 182) = sh1.Cells(7, 12)
sh2.Cells(LastRow, 183) = sh1.Cells(8, 11)
sh2.Cells(LastRow, 184) = sh1.Cells(8, 12)
sh2.Cells(LastRow, 185) = sh1.Cells(9, 11)
sh2.Cells(LastRow, 186) = sh1.Cells(9, 12)
sh2.Cells(LastRow, 187) = sh1.Cells(10, 11)
sh2.Cells(LastRow, 188) = sh1.Cells(10, 12)
sh2.Cells(LastRow, 189) = sh1.Cells(11, 11)
sh2.Cells(LastRow, 190) = sh1.Cells(11, 12)
sh2.Cells(LastRow, 191) = sh1.Cells(12, 11)
sh2.Cells(LastRow, 192) = sh1.Cells(12, 12)
sh2.Cells(LastRow, 193) = sh1.Cells(13, 11)
sh2.Cells(LastRow, 194) = sh1.Cells(13, 12)
sh2.Cells(LastRow, 195) = sh1.Cells(14, 11)
sh2.Cells(LastRow, 196) = sh1.Cells(14, 12)
sh2.Cells(LastRow, 197) = sh1.Cells(15, 11)
sh2.Cells(LastRow, 198) = sh1.Cells(15, 12)
sh2.Cells(LastRow, 27) = sh1.Cells(18, 12)
sh2.Cells(LastRow, 28) = sh1.Cells(19, 12)
sh2.Cells(LastRow, 29) = sh1.Cells(20, 12)
sh2.Cells(LastRow, 31) = sh1.Cells(21, 12)
sh2.Cells(LastRow, 102) = sh1.Cells(25, 6)
sh2.Cells(LastRow, 103) = sh1.Cells(26, 6)
sh2.Cells(LastRow, 104) = sh1.Cells(27, 6)
sh2.Cells(LastRow, 105) = sh1.Cells(24, 6)
sh2.Cells(LastRow, 170) = sh1.Cells(25, 9)
sh2.Cells(LastRow, 171) = sh1.Cells(26, 9)
sh2.Cells(LastRow, 172) = sh1.Cells(27, 9)
sh2.Cells(LastRow, 173) = sh1.Cells(24, 9)
sh2.Cells(LastRow, 199) = sh1.Cells(16, 12)
sh2.Cells(LastRow, 201) = sh1.Cells(22, 12)
sh2.Cells(LastRow, 202) = sh1.Cells(31, 3)
sh2.Cells(LastRow, 203) = sh1.Cells(31, 5)
sh2.Cells(LastRow, 204) = sh1.Cells(31, 8)
sh2.Cells(LastRow, 200) = Now

MsgBox "Verileriniz kaydedilmiştir."

End Sub
 
faye_efsane' Alıntı:
Merhaba, yeni bir buton ekleyip bu kodları kullanabilirsiniz.
Kaydet işlemi için kullanılan kodlardır.
Farkı LastRow ile kayıtlı verinin satır numarası alınmış oluyor.
Kod: 
Sub Guncelle()

On Error Resume Next
Dim LastRow  As Long

Set sh2 = Worksheets("Veri Tabanı")
Set sh1 = Worksheets("Yol Gider - Gelir Giriş")


LastRow = sh2.Range("A:A").Find(what:=sh1.Range("B33"), Lookat:=xlWhole).Row


If sh1.Cells(2, 3) = "" Then
  MsgBox "Soför Seçilmeli"
  Exit Sub
End If

If sh1.Cells(3, 3) = "" Then
  MsgBox "Plaka Seçilmeli"
  Exit Sub
End If

If sh1.Cells(4, 3) = "" Then
  MsgBox "Dorse Seçilmeli"
  Exit Sub
End If

If sh1.Cells(5, 3) = "" Then
  MsgBox "Çıkış tarihi yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(6, 3) = "" Then
  MsgBox "Gidiş güzergahı yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(7, 3) = "" Then
  MsgBox "Gidiş navlun bedeli yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(8, 3) = "" Then
  MsgBox "Dönüş güzergahı yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(9, 3) = "" Then
  MsgBox "Dönüş navlun bedeli yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(10, 3) = "" Then
  MsgBox "Şoföre verilen harcirah yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(30, 3) = "" Then
  MsgBox "Şoföre verilen para kuru yazılmalıdır."
  Exit Sub
End If

If sh1.Cells(13, 3) = "" Then
  MsgBox "Başlangıç mazot litresi yazılmalıdır"
  Exit Sub
End If

If sh1.Cells(24, 3) = "" Then
  MsgBox "Başlangıç km'si yazılmalıdır."
  Exit Sub
End If
  
sh2.Cells(LastRow, 1) = LastRow - 1
sh2.Cells(LastRow, 2) = sh1.Cells(2, 3)
sh2.Cells(LastRow, 3) = sh1.Cells(3, 3)
sh2.Cells(LastRow, 4) = sh1.Cells(4, 3)
sh2.Cells(LastRow, 6) = sh1.Cells(5, 3)
sh2.Cells(LastRow, 39) = sh1.Cells(6, 3)
sh2.Cells(LastRow, 40) = sh1.Cells(7, 3)
sh2.Cells(LastRow, 107) = sh1.Cells(8, 3)
sh2.Cells(LastRow, 108) = sh1.Cells(9, 3)
sh2.Cells(LastRow, 30) = sh1.Cells(10, 3)
sh2.Cells(LastRow, 41) = sh1.Cells(30, 3)
sh2.Cells(LastRow, 109) = sh1.Cells(30, 3)
sh2.Cells(LastRow, 7) = sh1.Cells(13, 3)
sh2.Cells(LastRow, 22) = sh1.Cells(24, 3)
sh2.Cells(LastRow, 8) = sh1.Cells(14, 2)
sh2.Cells(LastRow, 9) = sh1.Cells(14, 3)
sh2.Cells(LastRow, 10) = sh1.Cells(15, 2)
sh2.Cells(LastRow, 11) = sh1.Cells(15, 3)
sh2.Cells(LastRow, 12) = sh1.Cells(16, 2)
sh2.Cells(LastRow, 13) = sh1.Cells(16, 3)
sh2.Cells(LastRow, 14) = sh1.Cells(17, 2)
sh2.Cells(LastRow, 15) = sh1.Cells(17, 3)
sh2.Cells(LastRow, 16) = sh1.Cells(18, 2)
sh2.Cells(LastRow, 17) = sh1.Cells(18, 3)
sh2.Cells(LastRow, 18) = sh1.Cells(19, 2)
sh2.Cells(LastRow, 19) = sh1.Cells(19, 3)
sh2.Cells(LastRow, 20) = sh1.Cells(20, 3)
sh2.Cells(LastRow, 21) = sh1.Cells(21, 3)
sh2.Cells(LastRow, 23) = sh1.Cells(25, 3)
sh2.Cells(LastRow, 24) = sh1.Cells(26, 3)
sh2.Cells(LastRow, 25) = sh1.Cells(28, 3)
sh2.Cells(LastRow, 44) = sh1.Cells(4, 4)
sh2.Cells(LastRow, 47) = sh1.Cells(5, 4)
sh2.Cells(LastRow, 50) = sh1.Cells(6, 4)
sh2.Cells(LastRow, 53) = sh1.Cells(7, 4)
sh2.Cells(LastRow, 56) = sh1.Cells(8, 4)
sh2.Cells(LastRow, 59) = sh1.Cells(9, 4)
sh2.Cells(LastRow, 62) = sh1.Cells(10, 4)
sh2.Cells(LastRow, 65) = sh1.Cells(11, 4)
sh2.Cells(LastRow, 68) = sh1.Cells(12, 4)
sh2.Cells(LastRow, 71) = sh1.Cells(13, 4)
sh2.Cells(LastRow, 74) = sh1.Cells(14, 4)
sh2.Cells(LastRow, 77) = sh1.Cells(15, 4)
sh2.Cells(LastRow, 80) = sh1.Cells(16, 4)
sh2.Cells(LastRow, 83) = sh1.Cells(17, 4)
sh2.Cells(LastRow, 86) = sh1.Cells(18, 4)
sh2.Cells(LastRow, 89) = sh1.Cells(19, 4)
sh2.Cells(LastRow, 92) = sh1.Cells(20, 4)
sh2.Cells(LastRow, 95) = sh1.Cells(21, 4)
sh2.Cells(LastRow, 98) = sh1.Cells(22, 4)
sh2.Cells(LastRow, 101) = sh1.Cells(23, 4)
sh2.Cells(LastRow, 42) = sh1.Cells(4, 5)
sh2.Cells(LastRow, 45) = sh1.Cells(5, 5)
sh2.Cells(LastRow, 48) = sh1.Cells(6, 5)
sh2.Cells(LastRow, 51) = sh1.Cells(7, 5)
sh2.Cells(LastRow, 54) = sh1.Cells(8, 5)
sh2.Cells(LastRow, 57) = sh1.Cells(9, 5)
sh2.Cells(LastRow, 60) = sh1.Cells(10, 5)
sh2.Cells(LastRow, 63) = sh1.Cells(11, 5)
sh2.Cells(LastRow, 66) = sh1.Cells(12, 5)
sh2.Cells(LastRow, 69) = sh1.Cells(13, 5)
sh2.Cells(LastRow, 72) = sh1.Cells(14, 5)
sh2.Cells(LastRow, 75) = sh1.Cells(15, 5)
sh2.Cells(LastRow, 78) = sh1.Cells(16, 5)
sh2.Cells(LastRow, 81) = sh1.Cells(17, 5)
sh2.Cells(LastRow, 84) = sh1.Cells(18, 5)
sh2.Cells(LastRow, 87) = sh1.Cells(19, 5)
sh2.Cells(LastRow, 90) = sh1.Cells(20, 5)
sh2.Cells(LastRow, 93) = sh1.Cells(21, 5)
sh2.Cells(LastRow, 96) = sh1.Cells(22, 5)
sh2.Cells(LastRow, 99) = sh1.Cells(23, 5)
sh2.Cells(LastRow, 43) = sh1.Cells(4, 6)
sh2.Cells(LastRow, 46) = sh1.Cells(5, 6)
sh2.Cells(LastRow, 49) = sh1.Cells(6, 6)
sh2.Cells(LastRow, 52) = sh1.Cells(7, 6)
sh2.Cells(LastRow, 55) = sh1.Cells(8, 6)
sh2.Cells(LastRow, 58) = sh1.Cells(9, 6)
sh2.Cells(LastRow, 61) = sh1.Cells(10, 6)
sh2.Cells(LastRow, 64) = sh1.Cells(11, 6)
sh2.Cells(LastRow, 67) = sh1.Cells(12, 6)
sh2.Cells(LastRow, 70) = sh1.Cells(13, 6)
sh2.Cells(LastRow, 73) = sh1.Cells(14, 6)
sh2.Cells(LastRow, 76) = sh1.Cells(15, 6)
sh2.Cells(LastRow, 79) = sh1.Cells(16, 6)
sh2.Cells(LastRow, 82) = sh1.Cells(17, 6)
sh2.Cells(LastRow, 85) = sh1.Cells(18, 6)
sh2.Cells(LastRow, 88) = sh1.Cells(19, 6)
sh2.Cells(LastRow, 91) = sh1.Cells(20, 6)
sh2.Cells(LastRow, 94) = sh1.Cells(21, 6)
sh2.Cells(LastRow, 97) = sh1.Cells(22, 6)
sh2.Cells(LastRow, 100) = sh1.Cells(23, 6)
sh2.Cells(LastRow, 112) = sh1.Cells(4, 7)
sh2.Cells(LastRow, 115) = sh1.Cells(5, 7)
sh2.Cells(LastRow, 118) = sh1.Cells(6, 7)
sh2.Cells(LastRow, 121) = sh1.Cells(7, 7)
sh2.Cells(LastRow, 124) = sh1.Cells(8, 7)
sh2.Cells(LastRow, 127) = sh1.Cells(9, 7)
sh2.Cells(LastRow, 130) = sh1.Cells(10, 7)
sh2.Cells(LastRow, 133) = sh1.Cells(11, 7)
sh2.Cells(LastRow, 136) = sh1.Cells(12, 7)
sh2.Cells(LastRow, 139) = sh1.Cells(13, 7)
sh2.Cells(LastRow, 142) = sh1.Cells(14, 7)
sh2.Cells(LastRow, 145) = sh1.Cells(15, 7)
sh2.Cells(LastRow, 148) = sh1.Cells(16, 7)
sh2.Cells(LastRow, 151) = sh1.Cells(17, 7)
sh2.Cells(LastRow, 154) = sh1.Cells(18, 7)
sh2.Cells(LastRow, 157) = sh1.Cells(19, 7)
sh2.Cells(LastRow, 160) = sh1.Cells(20, 7)
sh2.Cells(LastRow, 163) = sh1.Cells(21, 7)
sh2.Cells(LastRow, 166) = sh1.Cells(22, 7)
sh2.Cells(LastRow, 169) = sh1.Cells(23, 7)
sh2.Cells(LastRow, 110) = sh1.Cells(4, 8)
sh2.Cells(LastRow, 113) = sh1.Cells(5, 8)
sh2.Cells(LastRow, 116) = sh1.Cells(6, 8)
sh2.Cells(LastRow, 119) = sh1.Cells(7, 8)
sh2.Cells(LastRow, 122) = sh1.Cells(8, 8)
sh2.Cells(LastRow, 125) = sh1.Cells(9, 8)
sh2.Cells(LastRow, 128) = sh1.Cells(10, 8)
sh2.Cells(LastRow, 131) = sh1.Cells(11, 8)
sh2.Cells(LastRow, 134) = sh1.Cells(12, 8)
sh2.Cells(LastRow, 137) = sh1.Cells(13, 8)
sh2.Cells(LastRow, 140) = sh1.Cells(14, 8)
sh2.Cells(LastRow, 143) = sh1.Cells(15, 8)
sh2.Cells(LastRow, 146) = sh1.Cells(16, 8)
sh2.Cells(LastRow, 149) = sh1.Cells(17, 8)
sh2.Cells(LastRow, 152) = sh1.Cells(18, 8)
sh2.Cells(LastRow, 155) = sh1.Cells(19, 8)
sh2.Cells(LastRow, 158) = sh1.Cells(20, 8)
sh2.Cells(LastRow, 161) = sh1.Cells(21, 8)
sh2.Cells(LastRow, 164) = sh1.Cells(22, 8)
sh2.Cells(LastRow, 167) = sh1.Cells(23, 8)
sh2.Cells(LastRow, 111) = sh1.Cells(4, 9)
sh2.Cells(LastRow, 114) = sh1.Cells(5, 9)
sh2.Cells(LastRow, 117) = sh1.Cells(6, 9)
sh2.Cells(LastRow, 120) = sh1.Cells(7, 9)
sh2.Cells(LastRow, 123) = sh1.Cells(8, 9)
sh2.Cells(LastRow, 126) = sh1.Cells(9, 9)
sh2.Cells(LastRow, 129) = sh1.Cells(10, 9)
sh2.Cells(LastRow, 132) = sh1.Cells(11, 9)
sh2.Cells(LastRow, 135) = sh1.Cells(12, 9)
sh2.Cells(LastRow, 138) = sh1.Cells(13, 9)
sh2.Cells(LastRow, 141) = sh1.Cells(14, 9)
sh2.Cells(LastRow, 144) = sh1.Cells(15, 9)
sh2.Cells(LastRow, 147) = sh1.Cells(16, 9)
sh2.Cells(LastRow, 150) = sh1.Cells(17, 9)
sh2.Cells(LastRow, 153) = sh1.Cells(18, 9)
sh2.Cells(LastRow, 156) = sh1.Cells(19, 9)
sh2.Cells(LastRow, 159) = sh1.Cells(20, 9)
sh2.Cells(LastRow, 162) = sh1.Cells(21, 9)
sh2.Cells(LastRow, 165) = sh1.Cells(22, 9)
sh2.Cells(LastRow, 168) = sh1.Cells(23, 9)
sh2.Cells(LastRow, 33) = sh1.Cells(29, 5)
sh2.Cells(LastRow, 34) = sh1.Cells(30, 5)
sh2.Cells(LastRow, 37) = sh1.Cells(23, 12)
sh2.Cells(LastRow, 35) = sh1.Cells(29, 8)
sh2.Cells(LastRow, 36) = sh1.Cells(30, 8)
sh2.Cells(LastRow, 175) = sh1.Cells(4, 11)
sh2.Cells(LastRow, 176) = sh1.Cells(4, 12)
sh2.Cells(LastRow, 177) = sh1.Cells(5, 11)
sh2.Cells(LastRow, 178) = sh1.Cells(5, 12)
sh2.Cells(LastRow, 179) = sh1.Cells(6, 11)
sh2.Cells(LastRow, 180) = sh1.Cells(6, 12)
sh2.Cells(LastRow, 181) = sh1.Cells(7, 11)
sh2.Cells(LastRow, 182) = sh1.Cells(7, 12)
sh2.Cells(LastRow, 183) = sh1.Cells(8, 11)
sh2.Cells(LastRow, 184) = sh1.Cells(8, 12)
sh2.Cells(LastRow, 185) = sh1.Cells(9, 11)
sh2.Cells(LastRow, 186) = sh1.Cells(9, 12)
sh2.Cells(LastRow, 187) = sh1.Cells(10, 11)
sh2.Cells(LastRow, 188) = sh1.Cells(10, 12)
sh2.Cells(LastRow, 189) = sh1.Cells(11, 11)
sh2.Cells(LastRow, 190) = sh1.Cells(11, 12)
sh2.Cells(LastRow, 191) = sh1.Cells(12, 11)
sh2.Cells(LastRow, 192) = sh1.Cells(12, 12)
sh2.Cells(LastRow, 193) = sh1.Cells(13, 11)
sh2.Cells(LastRow, 194) = sh1.Cells(13, 12)
sh2.Cells(LastRow, 195) = sh1.Cells(14, 11)
sh2.Cells(LastRow, 196) = sh1.Cells(14, 12)
sh2.Cells(LastRow, 197) = sh1.Cells(15, 11)
sh2.Cells(LastRow, 198) = sh1.Cells(15, 12)
sh2.Cells(LastRow, 27) = sh1.Cells(18, 12)
sh2.Cells(LastRow, 28) = sh1.Cells(19, 12)
sh2.Cells(LastRow, 29) = sh1.Cells(20, 12)
sh2.Cells(LastRow, 31) = sh1.Cells(21, 12)
sh2.Cells(LastRow, 102) = sh1.Cells(25, 6)
sh2.Cells(LastRow, 103) = sh1.Cells(26, 6)
sh2.Cells(LastRow, 104) = sh1.Cells(27, 6)
sh2.Cells(LastRow, 105) = sh1.Cells(24, 6)
sh2.Cells(LastRow, 170) = sh1.Cells(25, 9)
sh2.Cells(LastRow, 171) = sh1.Cells(26, 9)
sh2.Cells(LastRow, 172) = sh1.Cells(27, 9)
sh2.Cells(LastRow, 173) = sh1.Cells(24, 9)
sh2.Cells(LastRow, 199) = sh1.Cells(16, 12)
sh2.Cells(LastRow, 201) = sh1.Cells(22, 12)
sh2.Cells(LastRow, 202) = sh1.Cells(31, 3)
sh2.Cells(LastRow, 203) = sh1.Cells(31, 5)
sh2.Cells(LastRow, 204) = sh1.Cells(31, 8)
sh2.Cells(LastRow, 200) = Now

MsgBox "Verileriniz kaydedilmiştir."

End Sub
Genişletmek için tıkla ...

Merhabalar yardımınız için teşekkürler listeleme kodlarımda bir sorun var çektiğim ıd numarası farklı geliyor bu neden kaynaklabilir.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst