Hüçre Değerinin macroda bir değişkene atayıp kullanmak

[a_self_lion]

Selam arkadaşlar bir taploda bir hüçre değerini macro da bir değişkene atamak için ne yapmak gerekiyor

mesela A3 hüçresinin değerini = miktar değişkenine atamak için macro içinde ne gibi bir kod yazmak gerekiyor yardımcı olursanız sevinirim..

 

[Levent Menteşoğlu]

Aşağıdaki gibi yazmanız yeterlidir.

miktar=[a3]

veya

miktar=Range("A3")

 

[a_self_lion]

Sayın leventim soruyu biraz eksik sormuşum kusura bakmayın Belirli bir sayfadaki
hüçrenin diyecektim mesala sayfa1 deki A3 hüçresiin diye soracaktım....

 

[Levent Menteşoğlu]

Bu durumda hücre tanımlamasının önüne sayfa adını eklemek yeterlidir.

miktar=sheets("sayfa1").[a3]

veya

miktar=sheets("sayfa1").Range("A3")

 

[hukumran1]

Böyle bişey mi varmış ya. Makrolarımı kaç sayfa dolaştırdım kopyaladım yapıştırdım geri döndüm kopyaladım yapıştırdım.

Çok teşekkürler.

Bu sayfada da değişkeni başka hücreye nasıl yazdırılabileceğini anlatıyorlar. Benim gibi acemiler için faydalı olabilir.

http://www.excel.web.tr/f48/hucreye-yazy-ve-deoi-ken-yazdyrmak-t119326.html

 

[hukumran1]

Aralığı, satırı, sütunu vs. değişkene atama nasıl yapılabilir?

 

[yusufelmas]

Sayın hukumran,

Anladığım kadarıyla,

Sub degisken_atama()
degiskenim = Range("a1:b2")
Range("c1:d2") = degiskenim
End Sub

 

[Orion1]

Aralığı, satırı, sütunu vs. değişkene atama nasıl yapılabilir?

Buyurun ,A1:A10 aralığını değişkene atadım.

Sub degisken59()
Dim alan As Range, hcr As Range
Set alan = Range("A1:A10")
For Each hcr In alan
    MsgBox hcr.Value
Next
End Sub

 

[hukumran1]

Teşekkürler. Geri kalanını hallederim artık.

 

[keremd]

Bir sorum olacak,
sayfa1 deki A1 hücresinin 5 sağındaki hücreye değişken atamak için hangi kod olmalı.

 

[Korhan Ayhan]

Deneyiniz.

Sheets("Sayfa1").Range("A1").Offset(, 5) = "DENEME"