Kod ile ilgili güncelleme

[acemiexcelci35]

Herkese merhabalar. Daha önce buradan bir arkadaşın yardımıyla webden bazı verileri excelde istediğim hücreye saat başı aldığım bir kod almıştım. Lakin webden aldığım verilere birkaç yeni sayı eklendi.Şuan ki formatı ben yapmadığım için bunları nasıl istediğim yerlere yazdırabilceğim hakkında bir fikrim yok. Şuan ki kodda örnekte paylaşacağım dosyada 1. sekmede yer alan inavitasta ki değerleri saat başı sayfa 1-2-3.. vs sayfalarda gerekli yerlere aktarıyor. sayfalar tarihin günleri aslında yani sayfa 1 ayın 1i sayfa2 ayın2si.... oluyor şuan mevcutta ki kodu bozmadan yeni gelen verilerimi ekleyebilecek birisi varsa yardımını bekliyorum. Hangisinin nereye geliceğini sayılarla belirttim. Örn: İnavitasta aşağı kısımda 1 yazdığım sayfa 1de 1 yazan yere gelicek sayıları karşılıklı olarak sayfa 1 e aldım. Yalnız tekrar hatırlatayım sadece sayfa1e alınmayacak değer tarih ve saat neyse ona göre sıralı şekilde saat başı çekmesi gerek anlamadığınız bir şey olursa tekrar yazabilirim umarım açıklayıcı olmuştur şimdiden teşekkürler.. https://www.dosyaupload.com/it01

 

[acemiexcelci35]

Yok mu bir hayırsever

 

[ÖmerBey]

Merhaba,
Kayıt koduna aşağıdaki eklentiyi yapıp deneyiniz.

Sub kayit()
Dim sat As Byte, sut As Byte, a As Byte
Dim s1 As Worksheet, s2 As Worksheet, s As String
s = Day(Date)
Set s1 = ThisWorkbook.Sheets("İnavitas")
Set s2 = ThisWorkbook.Sheets("Sayfa" & s)
If Hour(Now) = 0 Then sat = 33 Else sat = Hour(Now) + 9
sut = 46
For a = 14 To 129 Step 5
    s2.Cells(sat, sut) = s1.Cells(a, "A")
    If sut = 64 Then sut = 68 Else sut = sut + 2
Next
s2.Cells(sat, "P") = s1.Range("B133")
s2.Cells(sat, "Q") = s1.Range("B138")
s2.Cells(sat, "R") = s1.Range("B139")
s2.Cells(sat, "D") = s1.Range("B140")
s2.Cells(sat, "S") = s1.Range("B143")
s2.Cells(sat, "T") = s1.Range("B148")
s2.Cells(sat, "U") = s1.Range("B149")
s2.Cells(sat, "E") = s1.Range("B150")
s2.Cells(sat, "V") = s1.Range("B153")
s2.Cells(sat, "W") = s1.Range("B158")
s2.Cells(sat, "X") = s1.Range("B159")
s2.Cells(sat, "F") = s1.Range("B160")

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub