Çözüldü Makro ile Saat Aralığı Yazdırma

[gicimi]

Merhaba;

U sütununda 500 den fazla veri bulunmaktadır. V sütununa aşağıdaki gibi saat aralığını yazdırmak istiyorum

U. V.
12:03:12 12-13
15:06:53 15-16
18:32:51 18-19
21:04:03 21-22
19:32:44 19-20

Makro ve formüllerle nasıl yapabilirim. Konu hakkında yardımcı olabilir misiniz. Teşekkürler.

 

[Tevfik_Kursun]

Merhaba,
Küçük bir örnek dosya ne istediğinizi daha kolay anlatır bence.
İyi çalışmalar

 

[turist]

Makro ile aşağıdaki örneği kullanabilirsiniz.
Not: V sütununu TEXT (METİN) olarak biçimlendirin.

Sub saat()
For i = 1 To Cells(Rows.Count, "U").End(xlUp).Row
If Cells(i, "U").Text Like "##:##:##" = True Then
Cells(i, "V") = Application.WorksheetFunction.Text(Cells(i, "U"), "hh") & " -  " & Application.WorksheetFunction.Text(Cells(i, "U") + (1 / 24), "hh")
End If
Next i
End Sub

Formül ile:
Verileriniz U1 den başlıyorsa
V1 hücresine:
=TEXT(U1;"ss")&" - "&TEXT(U1+(1/24);"ss")
şeklinde yazıp aşağıya kadar kopyalayıp yapıştırın.

 

[gicimi]

@turist Hocam çok teşekkür ederim. Elinize sağlık kolaylıklar.

 

[turist]

@turist Hocam çok teşekkür ederim. Elinize sağlık kolaylıklar.

Sağ olun.

 

[Erdem Akdemir]

Formülle alternatif,

=METNEÇEVİR(A6;"ss")&"-"&METNEÇEVİR(A6;"ss")+1

 

[gicimi]

@Erdem_34 Bey teşekkürler.