butun hucrelerın basına ' işareti

[ozangen]

ustadlar
çalışma sayfasındaki bütün hücrelerin başına eski icerikleri bozulmadan ' (kesme işareti) eklemem gerekiyor. bunu yapabileceğim bir makro varmı

 

[Kemal Demir]

sub ekle()
For i=2 to 2500
Range("b"&i)="'"&Range("b"&i)
Next
End sub


yukarıdaki kodda sadece B SUTUNU ICIN GECERLIDİR.

İSTEDİÐİN BUDUR İDYE TAHMIN ETTIM

 

[ozangen]

birde bu kodu nasıl kullanacagımı yazarsanız coook sevinirim

 

[TRABLUS]

Araçlar>makro>yeni makro kaydet, deyin.

Daha sonra kaydettiğiniz makronun içine adımla deyip girin. Oradaki mevcut kodların hepsini silin ve Rakkas, 'ın verdiği kodları oraya yapıştırın.

Daha sonra araçlar>makrolar dedikten sonra kaydettiğiniz makronun ismini tıklayıp çalıştır deyin.

 

[ozangen]

tesekkur

 

[vassago1974]

selamlar,
sayın ozengen
=birleştir() formülünüde kullanabilirsiniz (türkçe versiyonlar için)

fonksiyonları açtıktan sonra sonra birleştir'i seçiyorum
metin1 bir kısmına ' işaretini yazıyorum
metin2 kısmına " " yazıyorum (yani) ' işaretinden sonra
bir boşluk bırakmış oluyorum
metin3 kısmınada ' işaretini başına eklemek istediğimiz hücreyi seçiyorum

şu makroları bi öğrensem başka bir şey istemem

 

[F1]

şu makroları bi öğrensem başka bir şey istemem

keşke aynı hevesi herkes excel yerleşik fonksiyonlarına karşıda duysa.

 

[hamitcan]

Bende bir çözüm buldum, faydalı olacağını düşündüm.

Sub nnn()
For Each CELL In Selection
CELL.Value = "'" & CELL.Formula
Next CELL
End Sub

İyi çalışmalar...