Listenelenen Verilerin Güncellenmesi

O

OnurSorhan

Katılım
18 Temmuz 2012
Mesajlar
15
Excel Vers. ve Dili
C# VB
Altın Üyelik Bitiş Tarihi
02-02-2023
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

A

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
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
 
O

OnurSorhan

Katılım
18 Temmuz 2012
Mesajlar
15
Excel Vers. ve Dili
C# VB
Altın Üyelik Bitiş Tarihi
02-02-2023
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.
Üst