kopyalama

[excellcan]

Sorumu biraz karışık sorduğumu düşünerek örnek bir dosya ekledim. Yardımcı olacak arakadaşlara şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Neden E4 hücresine sırayla 1,2,3.....300 yazdırıp F4:G4 ü kopyalatıyorsunuz?

Bu değerler zaten B:C sütunlarında var, Doğrudan B ve C sütununu J:K sütununa aktarılsa olmaz mı?

Pratik düşünmek istedim.

 

[excellcan]

Merhaba,

Neden E4 hücresine sırayla 1,2,3.....300 yazdırıp F4:G4 ü kopyalatıyorsunuz?

Bu değerler zaten B:C sütunlarında var, Doğrudan B ve C sütununu J:K sütununa aktarılsa olmaz mı?

Pratik düşünmek istedim.

Hocam e4 hücresi benim orjinal çalışmamda başka bir bölgeyi çalıştırıyor. aslında değişik bölgelerdeki formüllü alanları bu şekilde birleştirmeye çalıştım. Bir de sayfa formül yüklü biraz da sayfanın yükünü hafifletmek için makro tercih ettim. Ama makro konusu da benim çok becerebilidiğim bir konu değil. Ya değilse formülle yapabilirim. Ama dediğim gibi sayfa oldukca yüklü.

 

[Necdet]

Merhaba,

Yanıt gelmediğine göre isteği gerçekleştirelim.

Sub Aktar()
Dim i, j As Integer
Application.ScreenUpdating = False
Columns("J:K").ClearContents
j = [J65536].End(3).Row + 1
If j < 4 Then j = 4
For i = 1 To 300
    Range("E4") = i
    Range("F4:G4").Copy
    Cells(j, "J").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    j = j + 1
Next i
[E4].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı...."
End Sub

 

[excellcan]

Hocam çok teşekkür ederim. Tam istediğim gibi. Yanıtımın gecikme sebebi bilgisayar başında değildim. O yüzden . Herşey gönlünüzce olsun.

 

[Necdet]

Hemşehrim, sizinde herşey gönlünüzce olsun