hücreye yazı ve değişken yazdırmak

[emregunduz]

merhabalar,

bir hücreye daha once okuduğum bir değişkeni ve yazıyı yazdırmak istiyorum.

Örn:

sub deneme()

deg1=101
rev=4

Cells(1,1)= "(" & deg" & ")" & rev

end sub

burada A1 hücresine (101) 4 yazması lazım.

 

[lark]

merhaba

Cells(1, 1) = "(" & deg1 & ") " & rev

 

[Murat OSMA]

Bu şekilde bir deneyiniz;

Cells(1, 1) = "(" & deg1 & ") " & rev

Afedersiniz Sn. lark mesajınızı görmedim...

 

[hukumran1]

Değişkenim = Sheets("Evrak").[A1]

Sheets("Dosya").Cells(1, 1) = " " & Değişkenim & "  " & rev

Yukarıdaki kod sadece tek hücreden kopyalama yapıştırma işlemi yapabiliyor.
Bu şekilde nasıl yapabilirim; [A1:A2] yi değişkene atayıp Cells (1, 1) ve (2, 1) e yapıştırmayı, bu şekilde belli bir aralıkta nasıl çalıştırabilirim?

 

[YUSUF44]

Değişkenim = Sheets("Evrak").[A1]

Sheets("Dosya").Cells(1, 1) = " " & Değişkenim & "  " & rev

Yukarıdaki kod sadece tek hücreden kopyalama yapıştırma işlemi yapabiliyor.
Bu şekilde nasıl yapabilirim; [A1:A2] yi değişkene atayıp Cells (1, 1) ve (2, 1) e yapıştırmayı, bu şekilde belli bir aralıkta nasıl çalıştırabilirim?

Aşağıdaki koddan farklı bir şey mi istiyorsunuz?

Cells(1,1) = [A1]
Cells(2,1) = [A2]

Eğer öyleyse daha açık bir şekilde ne istediğinizi belirtir misiniz?

 

[hukumran1]

Aşağıdaki koddan farklı bir şey mi istiyorsunuz?

Cells(1,1) = [A1]
Cells(2,1) = [A2]

Eğer öyleyse daha açık bir şekilde ne istediğinizi belirtir misiniz?

Değişkene tek hücre atamak istemiyorum. A1 ve A2 hücrelerinin ikisini birden değişkene atamak istiyorum. Sonra başka sayfada A3 ve A4 e aynı şekilde değişkeni kullanarak yapıştırmak istiyorum.

Değer kopyalamanın kullanışsız olduğu durumlar için.
Misal:
Değerleri içeren hücreler aktifken değerleri değişkene atayarak ve vakti gelince de makronun ilerleyen kısımlarında bir kez ya da bir çok kez kullanacağım.

İlginiz için teşekkür ederim. Umarım derdimi anlatabildim.

 

[hukumran1]

Değişkenim = Sheets("Evrak").[A1:A2]

Sheets("Dosya").Cells(1, 1 buraya ne konur bilmiyorum 1, 2) = " " & Değişkenim & " " & rev

 

[Korhan Ayhan]

Değişkenlerinizi "array" olarak tanımlayıp kullanabilirsiniz.

Sub Test()
    Dim Degisken(3)
    
    Degisken(1) = Range("A1").Value
    Degisken(2) = Range("A2").Value
    Degisken(3) = Range("A3").Value
    
    Range("D1").Value = Degisken(2)
End Sub

 

[hukumran1]

Çok teşekkürler, bu şekilde kullanmaya çalışacağım.