diğer arkadaşların dediğine ek olarak şöyle bir kodla da istediğini yapabileceksin sanıyorum. saatler a sütununda varsayımıyla, b sütununa o saatin tam sayısı yazılıyor. Belirli bir pattern'i izleyecekse sayılar istediğin gibi de olabilir:
Sub asd()
For i = 1 To 3 'BURADA 3 İLE VERİLEN SAYI YERİNE KAC SATIR VARSA SATIR SAYISI YAZILACAK
For j = 1 To 24
If CDate(Cells(i, 1)) > TimeSerial(j, 0, 0) And CDate(Cells(i, 1)) < TimeSerial(j + 1, 0, 0) Then
Cells(i, 2) = CInt(j) 'EĞER 11-12 ARASI 1 OLSUN İSTİYORSAN BURADA EŞİTLİĞİN SAĞ TARAFINI CINT(J)-10 ŞEKLİNDE DÜZELTEBİLİRSİN.
End If
Next j
Next i
End Sub
Büyük harfler açıklama niteliğindedir, vba'da program tarafından dikkate alınmayacak.
0