Otomatik Düzeltme işlemleri

[AKTAY27]

Meraba arkadaşlar

işçilerin puantajlarını girerken her saat yadıktan sonra ":" yazmak zor oluyor
bu işi macro ile çözebileceğimize inanıyorum.
A1 hücresinde "düzelt" yazılı ise otomatik düzeltme macrosu devreye girsin yazdığım her rakamdan sonra ":" kendisi eklesin a1 hücresinde düzelt yazılı değilse işlemler normal devam etsin.
teşekkürler

1- 1=1: olarak 13=13: olarak
2- 2=2: olarak 14=14: olarak
3- 3=3: olarak 15=15: olarak
4- 4=4: olarak 16=16: olarak
5- 5=5: olarak 17=17: olarak
6- 6=6: olarak
7- 7=7: olarak
8- 8=8: olarak
9- 9=9: olarak
10- 10=10: olarak
11- 11=11: olarak
12- 12=12: olarak

 

[Seyit Tiken]

İçinde veri bulunan bir hücreyi, butonu çift tıklayarak(birer saniye arayla)sonucu gözlemleyiniz.

 

[AKTAY27]

Sayin Seyİt Tİken
İlgİnİzden Dolayi TeŞekkÜr Ederİm

GÖndermİŞ OlduĞunuz ÇÖzÜmde Sadece GÖrÜnÜrde Saat Formatina Çevİrİyor Onun İÇİn SonuÇ Hesaplari YanliŞ Çikiyor. Benİm İstedİĞİm Excelİnde Kendİ İÇİnde Olan Otomatİk DÜzeltme SeÇenklerİnİ Macro İle Kullanabİlİrmİyİz Kullanabİlİrsek Kodlamayi Nasil Yapmamiz Lazim,

Yanİ 13 YazdiĞim Zaman Otomatİk DÜzeltme YazdiĞimin Sonuna ":" 13: Olur Excelde Bunu Saat Formati Kabul Eder Ve Problem Ortadan KalkmiŞ Olur

Saygilar

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
If [z1] = "Düzeltme" Then
Selection.NumberFormat = "0\:"
[z1] = "Düzelt"
Else
Selection.NumberFormat = "General"
[z1] = "Düzeltme"
End If
End Sub

 

[AKTAY27]

Sayin Seyİt Tİken
Yİne Aynisi İÇerİkte 13 Ama GÖrÜnÜrde 13: Olarak GÖrÜnÜyor,
HÜcre BİÇİmlendİrmede İsteĞe UyarlanmiŞ İÇİnde İŞlem YapildiĞindan Sadece GÖrÜnÜm Olarak İŞlem Yapiyor Ama Bunu HÜcere BİÇİmlendİr Saat ModÜlÜnÜn İÇİne Gİrebİlİrsek Problemİ ÇÖzebİlİrİz Dİye DÜŞÜnÜyorum.
Saygilar

 

[Seyit Tiken]

Yukarıdaki kodu aşağıdakiyle değiştirip deneyiniz.

Sub Düğme1_Tıklat()
If [z1] = "Düzeltme" Then
Selection.NumberFormat = "00\:00"
[z1] = "Düzelt"
Else
Selection.NumberFormat = "General"
[z1] = "Düzeltme"
End If
End Sub