Tabloda boş olan yerlere sıfır yazdırmak.

[Leoncio]

Arkadaşlar merhaba;
e11:n135 aralığında bir tablom var. Boş olan yerlere sıfır yazdırmak istiyorum.

Aşağıdaki kod ile sadece e kolonuna sıfır yapabiliyorum. Bu tanımı e den n 'ye şeklinde nasıl değiştirebilirim?

Sub sifiryaz()
For x = 11 To 135
Cells(x, 5).Select
If ActiveCell.Value = "" Then ActiveCell.Value = 0
Next
End Sub

 

[Haluk]

Sub Test()
    Dim MyRng As Range
    For Each MyRng In Range("E11:N135")
        If MyRng = Empty Then MyRng = 0
    Next
End Sub

 

[Leoncio]

Sayın Haluk;

Verdiğiniz kodlar ile işimi hallettim. Çok teşekkür ederim.

 

[Kemal Demir]

Sub sifiryaz()
For x = 11 To 135
For y=5 to 14
if Cells(x,y).value="" then
Cells(x,y).value="0" 
End if
Next
Next
End Sub

Alternatif Bilgi açısından bende ilave bir şey yazayım dedim.

Üstadın cevabının üzerine oldu ama kusura bakmayınız.

 

[Muratizmir]

Bu konu ile alakalı olduğu için yeni başlık açmak istemedim.
A1 de yazan tarihden B1 de yazan tarihi çıkarıp aradaki gün farkını c1 e yazmak istiyorum. Buraya kadar hepsini Gün360 olarak bulduğum excelin içindeki formül ile hallettim. Fakat benim yapmak istediğim eğer gün sayısı (c1) eksi yada sıfır ise hücre (c1) boş olarak görünsün. Bunu nasıl yapabilirim?

Cevap yazacak arkadaşa teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

C1 hücresine aşağıdaki formülü uygulayınız.

=E&#286;ER(G&#220;N360(A1;B1)<=0;"";G&#220;N360(A1;B1))

 

[mehmett]

Yanlış anlamadıysam aşağıdaki fonksiyonu soruyorsunuz.

=E&#286;ER(A1<A2;"";A1-A2)

 

[Muratizmir]

Say&#305;n Cost_Control ve Say&#305;n mehmett ;

&#304;kinizede te&#351;ekk&#252;r ederim. B&#252;y&#252;k ihtimal ikinizinde verdi&#287;i form&#252;ller &#231;al&#305;&#351;&#305;yor ve do&#287;rudur ama ne yaz&#305;kki ben beceremedim. Bir yerde hata yapt&#305;&#287;&#305;m kesin. form&#252;lleri direk buradan kopyalay&#305;p C1 h&#252;cresine yap&#305;&#351;t&#305;r&#305;yorum. Form&#252;lde Hata diyor. Yada form&#252;l olarak alg&#305;lam&#305;yor.

&#304;lginize te&#351;ekk&#252;r ederim.

 

[Korhan Ayhan]

Selamlar,

Hatalı sonuç veren dosyanızı ekleyebilirmisiniz.

 

[mehmett]

Ben sorunuzdaki bazı detayları kaçırmışım. Sn COST CONTROL'un verdiği fonksiyon muhtemelen sizin aradığınızdır. Yalnız çalışmıyor dediğinize göre excel versiyonunuz farklı olabilir. Örneğin, kullandığınız Excel'in dili Türkçe mi İngilizce mi.

Dikkat ederseniz hepimiz kullanmakta olduğumuz Excel sürümlerini profillerimizde belirtiyoruz. Siz de belirtirseniz sorularınıza daha sağlıklı cevap alırsınız.

 

[Muratizmir]

Ekte örnek olarak basitçe a1 ve b1 e bir tarih koydum. c1 e sizin verdiğiniz formülü yazdım.

İlginize teşekkür ederim.

 

[Muratizmir]

Ben sorunuzdaki bazı detayları kaçırmışım. Sn COST CONTROL'un verdiği fonksiyon muhtemelen sizin aradığınızdır. Yalnız çalışmıyor dediğinize göre excel versiyonunuz farklı olabilir. Örneğin, kullandığınız Excel'in dili Türkçe mi İngilizce mi.

Dikkat ederseniz hepimiz kullanmakta olduğumuz Excel sürümlerini profillerimizde belirtiyoruz. Siz de belirtirseniz sorularınıza daha sağlıklı cevap alırsınız.

Ben kendi profilimde exel 2002 türkçe diye yazmıştım hatta mesajlarımın altındaki çizgiden sonra bunu görüyorum ama sanırım sadece bana görülüyor. Şimdi tekrar kontrol edicem. Profilimi.

Halen kullanmakta olduğum excel 2002 türkçe.

Teşekkürler.

Edit. Şİmdi baktım sadece imza yazan kısımda varmış. Profile de ekledim. Özür.

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz dosyayı açtığımda C1 hücresinde formül düz yazı şeklinde görünüyordu. C1 hücresi üzerinde iken F2 ve enter tuşlarını kullandıktan sonra formül hücrede işlevini gerçekleşti. Bu şekilde denermisiniz.

 

[Muratizmir]

Sayın COST_CONTROL
Dediğiniz gibi yaptım. F2 ve enter formüle dönüştü ama önce formülde hata var dedi ve tamamı tıklayıncada A1 hücresini işaret etti. prtscr aldım resimleri aşağıdadır.

Büyük ihtimalle basit bir şey ama işte beceremeyince en basit olan bile insana çok zor geliyor. İlginize teşekkürler.

 

[birol_mumcu]

merhaba;
formül çalışyor osanızı ben farklı kaydetle ski versiyon (excel 5,0) olarak katdettim böyle deneyin

 

[Muratizmir]

merhaba;
formül çalışyor osanızı ben farklı kaydetle ski versiyon (excel 5,0) olarak katdettim böyle deneyin

Evet oldu Herkese teşekkürler. Ben bir yerde hata yapıyordum belli. Sizin yüklediğiniz dosyayı indirdim ve işlem tamam. Nerde hata yapıyordum bilmiyorum ama sorunum halledildi. Tekrar teşekkürler.