hücreye değer ekleyip saatler toplamı

[serqet]

:19:56
:33:28
:57:24
:35:42

merhaba bu şekilde bir listem var başka bir databaseden çekiorum bunlar normalde saat ama sadece dk ve sn leri görünüyor benim bu dk ları toplamam gerek yani bir makro yapıp iki nokta ile baslayan hücrelerin basına iki sıfır ekle demem lazımki toplanabilecek bi şekil alsın yapabilirmiyim acaba?

 

[leumruk]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz:

Sub Ekle()
Application.ScreenUpdating = False
For x = 1 To [a65536].End(3).Row
If Mid(Cells(x, "a"), 1, 1) = ":" Then
dak = Cells(x, "a")
Cells(x, "a") = "00" & dak
End If
Next
End Sub

 

[serqet]

ben bu işlemi a kolonu için değilde c1:h250 kolonlarında uygulamak istiorum bunun için ne yapmam gerekir acaba

 

[serqet]

yardımlarınızı bekliyorum

 

[Orion1]

ben bu işlemi a kolonu için değilde c1:h250 kolonlarında uygulamak istiorum bunun için ne yapmam gerekir acaba

Sub Ekle()
dim hcr as range
Application.ScreenUpdating = False
For each hcr in range("C1:H250")
If Mid(hcr.value, 1, 1) = ":" Then
dak = hcr.value
hcr.value = "00" & dak
End If
Next
End Sub

 

[serqet]

ilginiz yardımınız için çok teşekkür ederim elinize sağlık

 

[Orion1]

ilginiz yardımınız için çok teşekkür ederim elinize sağlık

Rica ederim.
İyi çalışmalar.

 

[serqet]

tekrar çok teşekkür ederim ama kızmazsanız birşey daha isticem sizden benim 1 den 31 e kadar isimlendirilmiş ayın günleri yani sayfalar var 31 tane ve bu sayfaların her birinde bu değişikliği yapmam söz konusu bunu yine tek butona basarak yapabilirmiyim yoksa her sayfaya ayrı ayrımı yapsam olur... dosya ekte

 

[Orion1]

Dosyanız ektedir.

Sub Ekle()
Dim hcr As Range
Application.ScreenUpdating = False
For i = 1 To 31
    For Each hcr In Sheets(CStr(i)).Range("C1:H250")
        If Mid(hcr.Value, 1, 1) = ":" Then
        dak = hcr.Value
        hcr.Value = "00" & dak
        End If
    Next
Next
Application.ScreenUpdating = True
MsgBox "işlem tamalandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[serqet]

çok teşekkür ederim iyiki varsınız.

 

[Orion1]

çok teşekkür ederim iyiki varsınız.

Rica ederim.
İyi çalışmalar.