Makro ile Koşullu formül kopyalama

[serinci]

üzeründe çalıştığımız bir dosyada sql den alınan veriler bulunmakta, bu veriler değişken aralıklarla yapılan işlemlere göre değişmekte ve artmakta, bu dosyada aldığımız verilerle kendimize bir rapor hazırlamış bulunmaktayız.

istediğimiz işlem ise tabloda B5 ten başlayarak X5 e kadar bir satırda formülümüz mevcut, sqlden veri gelmesi halinde bu veriler A6 dan başlayarak a7,8,2000 vs. uzamakta istediğim işlem sql den veri aktarımı bittiğinde (otomatik makro ile aktarılıyor) a sütununda veri gördüğü her satır için B den başlayarak formülü X sütununa kadar kopyalaması,

Bu işlem için nasıl bir yöntem izlenebilir.

Kısacası a sütununda eğer bir veri varsa referans olarak gösterilen satır B5-X5 i tüm A da veri bulunan satırlara kopyalamasıdır.

 

[N.Ziya Hiçdurmaz]

Kodu bir deneyiniz.
Sub kopyala()
For Each alan In Range("b5: x5")
For i = 6 To [a65000].End(3).Row
If Range("a" & i) <> "" Then
alan.Copy
Range("b" & i & ": x" & i).PasteSpecial
End If
Next
Next
Application.DataEntryMode = False
End Sub

 

[serinci]

İlginiz için teşekkür ederim. verdiğiniz kod makro çalıştığı anda kopyalamayı yapıyor ancak makro biterken yaptığı formül kopyalamalarını yeniden siliyor yani tablo ilk haline dönüyor.

 

[N.Ziya Hiçdurmaz]

yanıt

Dediğiniz gibi çalışıyor isterseniz tablonuzu ekleyiniz.

 

[serinci]

te&#351;ekk&#252;r ederim elinize sa&#287;l&#305;k

 

[tahsinanarat]

Sub Test()
x = Cells(65536, 3).End(xlUp).Row
Range("E2").AutoFill Destination:=Range("E2:E" & x)
Range("G2").AutoFill Destination:=Range("G2:G" & x)
Application.Calculate
End Sub

 

[kacik]

merhaba,

sanırım silinen dosyalardan bir tanesi de bu başlık altındaki dosyalarımızdan, bu dosyayı tekrardan yüklememiz mümkün müdür?

Mümkün değilse yapmaya çalıştığı fakat başaramadığım şeyi aktarıyım size b kolonundan x kolonuna kadar farklı formüller mevcut elimde o formülleriher kolon için ayrı bir şekilde yapıştırmak istiyorum; fakat yukarıdaki kodda saedece x kolonundaki formülleri tüm satırlara kopyalıyor.

nasıl bir çözüm geliştirebiliriz acaba?