Sınav Saati hücrelede hatalı gösteriyor,tıklayınca düzeliyor

[suvari38]

Ustalara işim düştü yine, ekteki dosyada Elprg sayfasındaki saat yerleri bir türlü doğru göstermiyor. hücreye çift tıklayınca düzeliyor durum. Bu neden oluyor anlamadım bir türlü. makroda sıkıntı olabileceğini düşünüyorum ama kodlardan da pek çıkartamadım. Yardımcı olursanız sevinirim.

 

[suvari38]

Arkadaşlar, yok mu yardımcı olabilecek, en azından bir fikir verin bi zahmet.

 

[adsoft]

saatin bağlı olduğu hücrede
FormatDateTime("hücre adresi",vbShortTime)
kodunu kullan ırsan hata düzelecektir

 

[suvari38]

Teşekkürler adsoft, söylediğini makroda denemeye çalıştım, ancak hala beceremedim. Formatdatetime kullanımını öğrenmeye çalışıp tekrar deneyeceğim. İlgilendiğin için tekrar teşekkür ederim. iyi geceler.

 

[suvari38]

Formatdatetime kullanımı

saatin bağlı olduğu hücrede
FormatDateTime("hücre adresi",vbShortTime)
kodunu kullanırsan hata düzelecektir

Hatayı hala düzeltemedim, formatdatetime'ı nasıl uygulayacağım acaba, veya farklı bir yolu var mı bu hatayı düzeltmenin?

 

[adsoft]

Hatayı hala düzeltemedim, formatdatetime'ı nasıl uygulayacağım acaba, veya farklı bir yolu var mı bu hatayı düzeltmenin?

KIRIMIZI RENKLİ ALANA EKLEME YAPTIM

Sub Program_Duzenle()
Application.ScreenUpdating = False 'Ekranın titremesini iptal eder
Dim BulunanVeri(20, 6) As String
Bulunan = 0
OgrAdi = Sayfa8.Range("E4").Value
Sayfa8.Range("B10:H22").ClearContents
Dim Hucre As Range
For Each Hucre In Sayfa3.Range("e4:e90,f4:f90,h4:h90,j4:j90,l4:l90,n4:n90,p490,r4:r90,t4:t90,v4:v90,x4:x90,z4:z90,ab4:ab90,ad4:ad90,af4:af90,ah4:ah90,aj4:aj90,al4:al90,an4:an90,ap4:ap90") '& WorksheetFunction.CountA(Range("B1:B65000")))
If Hucre = OgrAdi Then
Satir = Hucre.Row
Sutun = Hucre.Column
For i = 0 To 4
BulunanVeri(Bulunan, i) = Sayfa3.Cells(Satir, i + 1).Value
Next i
If Sutun < 21 Then
BulunanVeri(Bulunan, 5) = "Komisyon"
Else
BulunanVeri(Bulunan, 5) = "Gözcü"
End If
BulunanVeri(Bulunan, 4) = Sayfa3.Cells(Satir, 43).Value
Bulunan = Bulunan + 1
End If
Next Hucre
Sheets("Elprg").Select
For Satir = 0 To Bulunan - 1
For Sutun = 0 To 6
Cells(Satir + 10, Sutun + 2) = BulunanVeri(Satir, Sutun)
Next Sutun
Next Satir
For saat = 10 To 23
If Range("c" & saat).Value <> "" Then Range("c" & saat).Value = FormatDateTime(Range("c" & saat).Text, vbShortTime)


Next saat

Range("B9:H19").Select

Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

' Range("B9:H19").Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
' OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Application.ScreenUpdating = True
End Sub

HATA DÜZELDİ
DOSYA EKDE

 

[suvari38]

Sen bana yardım ettin, Allah da sana yardım etsin adsoft, çok teşekkür ederim.

 

[adsoft]

Sen bana yardım ettin, Allah da sana yardım etsin adsoft, çok teşekkür ederim.

cümleten amin
kolay gelsin