bekolinux
Yeni Üye
- Katılım
- 16 Ocak 2022
- Mesajlar
- 3
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 34
- Konum
- istanbul
- Ad Soyad
- mahmut kamer
- Office Vers.
- office 2019
merhaba aşağıdaki kod ile 3 sütunlu veriyi başka sütunlara yazdırıyorum. ama 4 sütun yazmak istediğimde yazdıramıyorum. nasıl yapabilirim acaba.
-- a sütununda saatler var
-- b,c,d,e sütunlarında verilerim var.
-- bu 4 farklı veriyi aşağıdaki kod ile yazdıramıyorum.
-- 3 sütunu yazıyor ama 4 sütun olunca yazmıyor.
-- a sütununda saatler var
-- b,c,d,e sütunlarında verilerim var.
-- bu 4 farklı veriyi aşağıdaki kod ile yazdıramıyorum.
-- 3 sütunu yazıyor ama 4 sütun olunca yazmıyor.
bas = CDate(Int([A2])) + TimeSerial(0, 0, 0)
bit = CDate(Int([A2])) + TimeSerial(7, 59, 59)
sonXD = Cells(Rows.Count, 1).End(xlDown).Row
XDv = Range("A2:E" & sonXD).Value
[P:[URL='https://www.exceldepo.com/s-2645']S[/URL]].Clear: XDsnc = Range("P2:[URL='https://www.exceldepo.com/s-2645']S[/URL]" & sonXD).Value
For XD = 1 To UBound(XDv)
If XDv(XD, 1) >= bas And XDv(XD, 1) <= bit Then
say = say + 1: XDsnc(say, 1) = XDv(XD, 2)
XDsnc(say, 2) = XDv(XD, 3): XDsnc(say, 3) = XDv(XD, 4)
End If
Next: [P2].Resize(say, 3) = XDsnc