boş hücrelere "0" yazdırmak

[emre_muhendis]

merhaba,

forumda aradım bulamadım. bulduklarımdan da pek birşey anlamadım. kendi derdimi anlatacağım. yardımcı olabilecek varsa çok sevinirim. excelde G2 ile N2374 arasındaki 8X2374 hücrelik alanda boş hücreler var. buralara "0" yazdırmak istiyorum. nasıl yapabilirim?

 

[tukayf]

Sub sıfır()
Range("g2:n2374") = 0
End Sub

kodu çalıştırın tamamdır heralde

 

[emre_muhendis]

çalıştırdım ama hata verdi. "Expected:line number or statement or end of statement" dedi.

 

[emre_muhendis]

bu arada tekrar denedim. çalıştı fakat dolu hücreleri de sıfır yaptı. yarısı tamam

 

[tukayf]

bu arada tekrar denedim. çalıştı fakat dolu hücreleri de sıfır yaptı. yarısı tamam

çok özür hocam ya dalgınlıkla oldu. okumamışım boş hücreleri

Sub Sıfırla()
Range("g2:n2374").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "0"
End Sub

necdet hocamın kodları.

umarım bu sefer olur.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub boshucsıfıryap()
On Error Resume Next
[g2:n2500].SpecialCells(4) = 0
End Sub

 

[emre_muhendis]

çok özür hocam ya dalgınlıkla oldu. okumamışım boş hücreleri

Sub Sıfırla()
Range("g2:n2374").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "0"
End Sub

necdet hocamın kodları.

umarım bu sefer olur.

hocam denedim oldu çok teşekkür ediyorum. peki bir satırı başka bir sheete nasıl yapıştırırız. benim bir projem var da o yüzden adım adım soruyorum

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod satırı ile yapabilirsiniz.

Rows(15).Copy Sheets("Sayfa2").Range("A1")

Aktif sayfadaki 15. satırı "Sayfa2" isimli sayfanın 1. satırına yapıştırır.

 

[erdenek]

arkadaşlar benimde bir sorum var.benim hücrenin içerisinde 2013-2014 EĞİTİM-ÖĞRETİM YILINDA HİZMETE GİRMİŞTİR.şeklinde yazmasına rağmen bunu silip sıfır yapıyor.bu yazı bu şekilde kalması lazım.

 

[ykp58]

Sub Makro6()
'
ActiveCell.Offset(-6, -2).Range("A1:E8").Select
ActiveCell.Offset(1, 2).Range("A1").Activate
Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

 

[erdenek]

sayın ykp58;
teşekkür ederim ellerinize sağlık

 

[canberrkk]

arkadaşlar bilmediğimden soruyorum. bu kodu nereye yazmalıyım?

 

[tukayf]

Foruma hoş geldiniz. Sayfa sekmesine sağ tıklayarak kod görüntüle (Alt F11 e tıklayarak) (geliştirici sekmesini şeride ekledikten sonra visual basic seçeneğini tıkladıktan sonra gelen alana yazabilirsiniz.