açıklama excel dosyasında mevcut. cevaplarınız için şimdiden teşekkürler
Ekli dosyalar
-
11.9 KB Görüntüleme: 8
Son düzenleme:
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
Saat = Format([c1], "hh:mm")
For k = 2 To Worksheets("takip").Cells(1, Columns.Count).End(xlToLeft).Column
bak = Format(Worksheets("takip").Cells(1, k), "hh:mm")
If bak = Saat Then
For x = 2 To Worksheets("takip").Cells(Rows.Count, 1).End(xlUp).Row
For xx = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(xx, 1) = Worksheets("takip").Cells(x, 1) Then
Worksheets("takip").Cells(x, k) = Cells(xx, 3)
Exit For
End If
Next xx
Next x
Exit Sub
End If
Next k
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Saat = Format([c1], "hh:mm")
For k = 2 To Worksheets("takip").Cells(2, Columns.Count).End(xlToLeft).Column
bak = Format(Worksheets("takip").Cells(2, k), "hh:mm")
If bak = Saat Then
For x = 3 To Worksheets("takip").Cells(Rows.Count, 1).End(xlUp).Row
For xx = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(xx, 1) = Worksheets("takip").Cells(x, 1) Then
Worksheets("takip").Cells(x, k) = Cells(xx, 3)
Exit For
End If
Next xx
Next x
Exit Sub
End If
Next k
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Zaman = ([C1] - Int([C1])) * 24
Kontrol = Zaman - Int(Zaman)
If Not (Kontrol = 0 Or Kontrol = 0.5) Then Exit Sub
k = 2 + Int(Zaman) * 2 + Kontrol * 2
For x = 3 To Worksheets("takip").Cells(Rows.Count, 1).End(xlUp).Row
For xx = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(xx, 1) = Worksheets("takip").Cells(x, 1) Then
Worksheets("takip").Cells(x, k) = Cells(xx, 3)
Exit For
End If
Next xx
Next x
End Sub