Aralığa sıfır değeri atama ve aktarma

[bryantuz]

1. Buton h4 ve h14 dahil arasındaki hücrelere 0 değerini atamak.

2. Buton İse I15 Hücresindeki Değeri E10'a Aktarmak..

Yardımcı Olursanız Sevinirim.

 

[Orion1]

Sub aktar1()
Range("H4:H14").Value = 0
End Sub
Sub aktar2()
Range("E10").Value = Range("I5").Value
End Sub

 

[Ömer]

Merhaba,

Sub Sıfır()
Range("H4:H14") = 0
End Sub
 
Sub Aktar()
Range("I5").Copy Range("E10")
End Sub

Bu şekilde deneyiniz..

.

 

[Necdet]

aynı anda yanıt, kutlarım

 

[bryantuz]

Sıfır Değer Ataması Çalıştır Teşekkür Ederim.
Yalnız ;
Aktarma Olmuyor İkisindede Koşullu Biçimlendirme Var I15 de Acaba Ondan mı ?

 

[Orion1]

Sıfır Değer Ataması Çalıştır Teşekkür Ederim.
Yalnız ;
Aktarma Olmuyor İkisindede Koşullu Biçimlendirme Var I15 de Acaba Ondan mı ?

Benim verdiğim 2 numaralı mesaja baktınızmı?

 

[bryantuz]

Tamam Oldu Teşekkür Ederim. Hücre İsimlerini Yanlış Girmişim

 

[Orion1]

Tamam Oldu Teşekkür Ederim. Hücre İsimlerini Yanlış Girmişim

Veriyi aldığınız hücrede,(E10) koşullu biçimlendirmenizi kontrol ediniz.) eğer onda koşullu biçimlendirme varsa Ömer beyin yazdığı kod ile oradaki biçimlendirme veriyi aldığı hücrenin biçimlendirmedsini alır.
Yaptığınız koşullu biçimlendirmeyi kontrol ediniz.

 

[bryantuz]

Veriyi aldığınız hücrede,(E10) koşullu biçimlendirmenizi kontrol ediniz.) eğer onda koşullu biçimlendirme varsa Ömer beyin yazdığı kod ile oradaki biçimlendirme veriyi aldığı hücrenin biçimlendirmedsini alır.
Yaptığınız koşullu biçimlendirmeyi kontrol ediniz.

Veriyi Alan Hücreye Özel Biçim Girdim Sorun Düzeldi.