Kodu kitabın tüm sayfalarında için geçerli kılma.

[Bora K]

Merhabalar.

Aşağıdaki kod ile
E11 hücresini Metin olarak biçimlendiriyor
ve hücredeki verinin sonuna "." nokta ilave
ediyorum.

Kodu çalıştırdığım zaman Kitabın sayfalarının
tamamında E11 hücresinde aynı işlem yapılmalı.
Lakin bütün sayfalarda E11 hücresinde "Deneme" yok farklı veriler var
bu durum gözetilmeli. Yardımlarınızı bekliyorum lütfen.

Sub Makro1()
Range("E11").Select
Selection.NumberFormat = "@"
ActiveCell.FormulaR1C1 = "Deneme."
End Sub

 

[Muzaffer Ali]

aşağıdaki gibi yapabilirsiniz

sheets("SayfaAdı").Range("E11").Select
 Selection.NumberFormat = "@"
 ActiveCell.FormulaR1C1 = "Deneme."

sheets("SayfaAdı").Range("E11").Select
 Selection.NumberFormat = "@"
 ActiveCell.FormulaR1C1 = "Deneme."


sheets("SayfaAdı").Range("E11").Select
 Selection.NumberFormat = "@"
 ActiveCell.FormulaR1C1 = "Deneme."

sheets("SayfaAdı").Range("E11").Select
 Selection.NumberFormat = "@"
 ActiveCell.FormulaR1C1 = "Deneme."

böylece istediğiniz kadar çoğaltabilirsiniz

 

[Bora K]

Merhabalar.
dalgalı kur üstad.
Sayfa adları her kitapta farklı olacacağı sanırım biraz daha
geliştirmek lazım. Hem her hücrede deneme olmayacak.

Tam olarak şunu yapmak istiyorum.
Yazılcak kod. Çalıştırdığım her kitapta
İstisnasız bütün sayfaların E 11 hücresini metin olarak
biçimlendirecek ve o hücredeki verinin yada rakamın sonuna "." nokta
ilave edecek.

 

[halit3]

Merhabalar.
dalgalı kur üstad.
Sayfa adları her kitapta farklı olacacağı sanırım biraz daha
geliştirmek lazım. Hem her hücrede deneme olmayacak.

Tam olarak şunu yapmak istiyorum.
Yazılcak kod. Çalıştırdığım her kitapta
İstisnasız bütün sayfaların E 11 hücresini metin olarak
biçimlendirecek ve o hücredeki verinin yada rakamın sonuna "." nokta
ilave edecek.

kod:

Sub deneme1()

If Right(Cells(11, "e").Value, 1) = "." Then Exit Sub
Cells(11, "e").NumberFormat = "@"
Cells(11, "e").Value = Cells(11, "e").Value & "."
End Sub

 

[Bora K]

Sayın Halit Hocam
Merhabalar.

Kod sadece aktif sayfada çalışıyor.
Kitabın tamamında (tüm sayfalarda) çalıştırabilirmiyiz
acaba?

 

[halit3]

Sayın Halit Hocam
Merhabalar.

Kod sadece aktif sayfada çalışıyor.
Kitabın tamamında (tüm sayfalarda) çalıştırabilirmiyiz
acaba?

Kodu istediğin sayfada çalıştır her sayfada çalışır ancak aynı anda tek tıklama ile bütün sayfalarda uygulamak istiyorsanız bu kodu deneyin.

Sub deneme1()
For i = 1 To ActiveWorkbook.Sheets.Count
If Right(Sheets(Sheets(i).Name).Cells(11, "e").Value, 1) <> "." Then
Sheets(Sheets(i).Name).Cells(11, "e").NumberFormat = "@"
Sheets(Sheets(i).Name).Cells(11, "e").Value = Sheets(Sheets(i).Name).Cells(11, "e").Value & "."
End If
Next
MsgBox "işlem tamam"
End Sub

 

[Bora K]

Çok teşekkür ederim hocam.
İyiki varsınız. Saygılarımla

 

[doganbaris]

Halit Hocam kontrolü de yapmış, sonu nokta ise pas geçiyor...

Her ne kadar bana mantıksız da gelse, noktası olsa da her bastığımda nokta ilave edeyim diyorsanız

If Right(Sheets(Sheets(i).Name).Cells(11, "e").Value, 1) <> "." Then
ve
End If

satırlarını çıkartmalısınız.

bunun yanında, gerçekten . olan bir kısaltma gibi hücre var ise +1 adet daha nokta gerekir mi gerekmez mi ?
Örneğin Deneme. olarak kalsın ama Mahalle yerine Mah. olan hücre içeriğinin Mah. olarak kalması yeterli midir, Mah.. olması mı gerekir ?

Gereksiz bir yorum olsa da, belirtmek istedim

 

[Bora K]

Merhabalar
Sayın Barış
Bahsettiğiniz durumdan ziyade kodu çalıştıramıyorum şuan.
Ben Halit hocama teşekkür ettim.
Büyük ihtimal tekrar bakmayacaktır buraya.

Kod yeni açılan kitapta çalışıyor lakin benim
orjinal dosyalarımda çalışmıyor. Sanırım sayfa adları ile ilgili bir sorun var.
sayfa adları Ahmet Mehmet Borç Alacak diye gidiyor. Orjinal sheets noları ise
sıralı değil sanırım bundan kaynaklanıyor yada tam olarak nedir sebep bilemedim.
Orjinal dosyayı yükleme durumumda maalesef yok.
Bunun için ne yapılabilir acaba?

 

[Bora K]

Enteresan şekilde hatayı kodun isminde veriyor.
Sub deneme1()
Satır hatasıda yok

 

[doganbaris]

aldığınız hatayı belirtir misiniz ?

 

[Bora K]

Compile Error
Veriable not defined

diyor ok yapıncada kodun ismini gösteriyor
Sub deneme1() burayı yani

 

[doganbaris]

sayfa adlarından değil de, değişken tanımlamalarınız ile ilgili bir sıkıntınız var.
tam kodu görmeden bu konuda birşey deme şansım olmaz

DIM ile tüm değişkenlerinizi tanımlayarak deneyebilirsiniz.

 

[halit3]

Sub deneme1()

yukarıdaki bölümün hemen altına

Dim i As Long

veya

Dim i

ekleyip deneyin

 

[Bora K]

Tekrardan teşekkür ederim.
Halit Hocam
Sağolunuz.