Çoklu Kopyalama

[myefsane]

Arkadaşlar bir hücredeki değeri alıp başına = koyup başka bir hücreye yapıştırmak istiyorum. Bunun için nasıl bir makro gerekiyor.

 

[Saban Sertkaya]

Bu şekilde bir deneyin.

[B1] = "=" & [A1].Address

 

[yyhy]

Örnek dosya eklemiş olsaydınız daha anlaşılır olurdu, ben de aynı şekilde formülleri önce = işaretinden arındırıyorum daha sonra götürüp ilgili yerlere değerleri yapıştırdıktan sonra bul değiştir ile tekrar = işaretini koyarak formüllerin çalışmasını sağlıyorum.
Sormak istediğiniz bu mu acaba? ben bu şekilde anladım. Saygılarımla.

 

[myefsane]

haklısınız harici linkler sorun oluyor.

 

[myefsane]

Bu şekilde bir deneyin.

[B1] = "=" & [A1].Address

Teşekkürler tam aradığım buydu.

 

[Saban Sertkaya]

Rica ederim, işinizin görülmesine sevindim.

 

[myefsane]

Rica ederim, işinizin görülmesine sevindim.

Bir kısmını çözdü. Diğer kısmı ise üstte bulunan 5 sütünu bir alt satıra kafalarına = koyarak yazmak buna uğraşıyorum

 

[Saban Sertkaya]

Biraz daha ayrıntılı izah ederseniz, bakalım.

 

[myefsane]

prstrh = "=" & Range("E2").Value & Worksheets("Ayar").[J20].Value
Range("G7").Value = prstrh
    
prssaat = "=" & Range("E2").Value & Worksheets("Ayar").[J21].Value
Range("H7").Value = prssaat

Burada tek tek hücreden alıp kopyalıyor yapmak istediğim. aynı anda almasını sağlamak

 

[Saban Sertkaya]

Sanırım kopyalama bir sıra ile devam ediyor. Öyle ise şu şekilde deneyebilirsiniz.

for a = 2 to 10
cells(a+5,7) = "=" & cells(2,5) & sheets("Ayar").cells(a,10)
next a

For....Next döngüsünü kendinize göre düzenlersiniz.