Saati makro ile yukarı yuvarlama

[nongeyikm]

Merhabalar,

hücre içinde (D7 den itibaren tüm sütun) yer alan saat değerlerini yukarı yuvarlamak istiyorum (örneğin : 06:20'yi -->07:00 olarak). makro ile ve buton yardımı ile yapabilir miyiz?

Saygılar,

 

[HAKAN132]

Makrosuz bu formülle de çözebilirsiniz.

12:00 12 bırakır
12:00-12:30 arasını 12:30 yapar
12:30-13:00 arasını 13:00 yapar

EĞER(DAKİKA(A1)=30;YUKARIYUVARLA(A1*24;0)/24;TAVANAYUVARLA(A1;0,5/24))

 

[nongeyikm]

hücrelerde saat değerleri zaten var. aynı hücre içinde formül ile değil, makro ile yukarı yuvarlamak istiyorum.

 

[HAKAN132]

hücrelerde saat değerleri zaten var. aynı hücre içinde formül ile değil, makro ile yukarı yuvarlamak istiyorum.

Sub ekle()

For i = 1 To 10

If Cells(i, "A") <> "" Then

Columns("B:B").NumberFormat = "hh:mm"
Cells(i, "B").Select
    ActiveCell.FormulaR1C1 = _
        "=+IF(MINUTE(RC[-1])=30,ROUNDUP(RC[-1]*24,0)/24,CEILING(RC[-1],0.5/24))"
        
    Cells(i, "B").Select
Selection.Copy
    Cells(i, "A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

    Cells(i, "B").Select
    Cells(i, "B").Clear
    
End If
Next i
End Sub

 

[nongeyikm]

Satır verilerim D7 den itibaren başlıyor. veri dönüştürme işlemini J sütununda (siz b sütununda yaptınız) yapabilir misiniz.

 

[HAKAN132]

Satır verilerim D7 den itibaren başlıyor. veri dönüştürme işlemini J sütununda (siz b sütununda yaptınız) yapabilir misiniz.

B sütununa alıp a ya kopyalayıp b den siliyor benim size attığım. Yukarda istediğiniz gibi yapmıştım formülü.

"Hücrelerde saat değerleri zaten var. aynı hücre içinde formül ile değil, makro ile yukarı yuvarlamak istiyorum. "

Örnek dosyanızı atar mısınız daha sağlıklı bir harita çizebiliriz. Yine de bu mesajda anlatmak istediğinizi tanımlamaya çalıştım. Olmazsa dosya atarsanız daha iyi olur.

Sub ekle()

For i = 7 To 10

If Cells(i, "D") <> "" Then

Columns("J:J").NumberFormat = "hh:mm"
Cells(i, "J").Select
    ActiveCell.FormulaR1C1 = _
        "=+IF(MINUTE(RC[-1])=30,ROUNDUP(RC[-1]*24,0)/24,CEILING(RC[-1],0.5/24))"
        
      
End If
Next i
End Sub

 

[nongeyikm]

maalesef olmadı

 

[nongeyikm]

Sub ekle()

For i = 1 To 10

If Cells(i, "A") <> "" Then

Columns("B:B").NumberFormat = "hh:mm"
Cells(i, "B").Select
    ActiveCell.FormulaR1C1 = _
        "=+IF(MINUTE(RC[-1])=30,ROUNDUP(RC[-1]*24,0)/24,CEILING(RC[-1],0.5/24))"
       
    Cells(i, "B").Select
Selection.Copy
    Cells(i, "A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

    Cells(i, "B").Select
    Cells(i, "B").Clear
   
End If
Next i
End Sub

Merhabalar,
Makronuz A-B kolonlarında çalışıyor. D-J kolonlarında bu makroyu uyarlayabilir misiniz?

 

[nongeyikm]

Sorun çözüldü. Elinize sağlık
(RC[-1]
(RC[-6] yapmam gerekiyormuş. burayı kaçırdım.