F ve R arasi sutunlarda hucre duzenleme

[zozotr]

Merhaba Arkadaslar;

Asagida verecegim kodda F ve R arasi sutunlardaki rakamlarin Ondalik basamak sayisinin 0 olmasini istiyorum ama malesef bu kod tum excel sayfasini duzenliyor. Bu kodu nasil degistirirsem sadece f9 ve r9999 numarali satirlari duzenlettirebilirim?

Sub HucreDuzenle()
'
Columns("F:R").Select
Selection.NumberFormat = "0"
End Sub

Simdiden Tesekkurler

 

[BG]

Merhaba

Merhaba Arkadaslar;

Asagida verecegim kodda F ve R arasi sutunlardaki rakamlarin Ondalik basamak sayisinin 0 olmasini istiyorum ama malesef bu kod tum excel sayfasini duzenliyor. Bu kodu nasil degistirirsem sadece f9 ve r9999 numarali satirlari duzenlettirebilirim?

Sub HucreDuzenle()
'
Columns("F:R").Select
Selection.NumberFormat = "0"
End Sub

Simdiden Tesekkurler

aşağıdaki gibi deneyiniz.

Sub HucreDuzenle()
Range("F9:R9999").Select
Selection.NumberFormat = "0"
End Sub

 

[zozotr]

ilginize tesekkurler, onu daha oncede denemistim ama malesef o kod istegimi gormuyor. cunku b ve c sutunlarinda bulunan tarihleri rakamlara ceviriyor. Range("F9:R9999").Select yazdigim halde b ve c sutunundaki tarihleri rakama donuyor.

 

[BG]

ilginize tesekkurler, onu daha oncede denemistim ama malesef o kod istegimi gormuyor. cunku b ve c sutunlarinda bulunan tarihleri rakamlara ceviriyor. Range("F9:R9999").Select yazdigim halde b ve c sutunundaki tarihleri rakama donuyor.

kodu denedim aynı problemle karşılaşmadım, daha önceden B:C aralığındaki tarihlerin formatı dönüştürülmüş olabilir, B:C sütunlarını seçip "Biçim/hücrelerden" tarih formatını seçip kodu çalıştırdığınızda bir problem olmayacağını düşünüyorum, fakat yinede bir problem yaşarsanız aşağıdaki kodu deneyin

Sub HucreDuzenle()
Range("F9:R9999").Select
Selection.NumberFormat = "0"
Range("b:c").Select
Selection.NumberFormat = "dd.mm.yyyy"
End Sub

 

[zozotr]

kodu denedim aynı problemle karşılaşmadım, daha önceden B:C aralığındaki tarihlerin formatı dönüştürülmüş olabilir, B:C sütunlarını seçip "Biçim/hücrelerden" tarih formatını seçip kodu çalıştırdığınızda bir problem olmayacağını düşünüyorum, fakat yinede bir problem yaşarsanız aşağıdaki kodu deneyin

Sub HucreDuzenle()
Range("F9:R9999").Select
Selection.NumberFormat = "0"
Range("b:c").Select
Selection.NumberFormat = "dd.mm.yyyy"
End Sub

Sn Gokhan Bey ilginize tesekkurler ama malesef buda sorunumu cozmedi bu kod da f ve r sutunlari arasi tum rakamlari tarih formatina degistirdi. dd.mm.yyyy olarak tum rakamlar degisti. Aslinda bunu el ile kisa bir sure icersinde yapabiliyorum ama sorun ayni seyi hergun onlarca defa yapmam gerektiginde kaynaklaniyor.

Cozumunu bulamasakta ilgilendiginiz icin tesekkurler.

 

[BG]

Sayın zozotr

lütfen örnek dosyanızı gönderin, anlaşılan bu şekilde bir çözüme ulaşmamız biraz güç olacak.

 

[Necdet]

ilginize tesekkurler, onu daha oncede denemistim ama malesef o kod istegimi gormuyor. cunku b ve c sutunlarinda bulunan tarihleri rakamlara ceviriyor. Range("F9:R9999").Select yazdigim halde b ve c sutunundaki tarihleri rakama donuyor.

Range("F9:R9999") da B ve C sütunun etkilenmesi olası değil? kodu yanlış yazmış olmayasınız.

 

[zozotr]

Range("F9:R9999") da B ve C sütunun etkilenmesi olası değil? kodu yanlış yazmış olmayasınız.

Sayın Necdet Hocam Kodları dogru yazıyorum.
ve Sayın Gokhan Hocam dosya ektedir.

Saygılar

 

[Necdet]

Merhaba,

Hem 2003, hem 2007 sürümlerinde denedim bir sorunla karşılaşmadım.

Aşağıdaki kodları ilgili sayfanın kod bölümünde olmalı.

Herhangi bir hücrede çift tıklama ile çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("F4:R9999").NumberFormat = "0"
End Sub