Hücrelere bağlalantı kurmak

[engin]

Değerli Paylaşımcılar.
Soruma geçmeden önce böyle bir oluşum hazırladığınız için minnettarlığımı bir kez daha kabul etmenizi dilerim

İki sayfa arasında birbiri ile bağlantı kurmam gereken hücreler var. verileri almam gereken sayfada ki hücreler seri halde bulunuyor yani örnek olarak A1hüc indden başlıyor A25 hücresine kadar seri halde ilerliyor. bu hücelere bağlantı kurmam gereken hücreler ise H10 dan başlayıp H18 H24 gibi 8 hücre atalayıp h...n kadar ilerliyor ben bu bağlantıyı yapmam içiniki pencere açıyorum bağlantı kuracağım hücreye = imi koyup bağlanacak hücreyi fare ile tıklayıp entra basıyorum birsürü dolanbaçlı yol izliyorum bu işlemimin yapılabilmesi için daha basit bir yöntem varmı teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu kitap1 de bir butona bağlayarak deneyin. Kitap1 deki A1:A25 arasındaki verileri almak için gerekli formülleri kitap2 deki H10 dan başlamak üzere hücrelere kopyalar.
[vb:1:fcaead0a4e]Sub kopyala()
c = 0
For a = 1 To Cells(65536, 1).End(xlUp)
Workbooks("kitap2").Sheets("sayfa1").Range("H" & 10 + c) = "=[Kitap1]Sayfa1!A" & a
c = c + 8
Next a
End Sub[/vb:1:fcaead0a4e]

 

[engin]

eline sağlık leventm bu kopyalama işlemini fonksiyon kullanarak yapamazmıyım,
birde makro kodunu hazırlarken önce c yi tanımlıyorsun sonra a stununa 1 e eşitleyip cells (65536,1) herelde sayfada bulunan hücre sayısıyla ilgili End(xlUp) bunu anlamadım , sonra kitapta kopyalanak sayfayı ve yerini seçiyorsun c yede 8 satır ekledikden sonra next ile döngü oluşturuyorsun mantılk bu herelde yanlış anlamadıysam.

 

[Levent Menteşoğlu]

Formüllerlede yapılır sanıyorum,bununla ilgili aşağıdaki linkte benzer bir soruya Sn Serpily'nin vermiş olduğu cevabı inceleyin.

http://www.excel.web.tr/viewtopic.php?p=6217&highlight=#6217

For a = 1 To Cells(65536, 1).End(xlUp)

buradaki Cells(65536, 1).End(xlUp) bir aralıktaki en son dolu hücrenin yerini belirler, bu komutla döngünün çalışacağı üst sınırı belirtmenize gerek kalmaz. a=1 den başlaması ise A1 hücresinden başlayacak dediğiniz içindir. A2 den başlaması gerekseydi a=2 şeklinde yazarak döngüyü 2 den başlatmak gerekirdi.

c = c + 8

c değişkenide kitap2 dosyasında sayfa1'e kopyalanacak formüllerin H10,H18,H26 şeklinde 8 hücre sonrasına kopyalaması için kullanılmaktadır.

 

[engin]

Çok Çok teşekkürler