sayfa veri aktarma

[ThEeNCi]

sayfa1 deki veri girişlerini sayfa2 deki tablonun en alt satırına içindeki bütün formül ve değerleriyle birlikte alt alta butonla kopyalamak mümkünmüdür arkadaşlar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Sheets("Sayfa1").Range("A6:M14").Copy _
    Sheets("Sayfa2").Range("A1048576").End(3).Offset(1)
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ThEeNCi]

korhan bey çok teşekür ederim fakat sayfayı aktarıyor fakat içindeki değer ve formüllerin aynısını kopyalamıyor değer ve formüllerinde aynı kalması gerekiyor aşağı inince hepsini koordinatları değişiyor

 

[Korhan Ayhan]

Selamlar,

2. Aktarım işleminde B21 hücresindeki formül size göre ne olmalıdır.

Ben denediğimde aşağıdaki fomül oluşuyor.

=TOPLAM(G16:G23)

 

[ThEeNCi]

veri giriş olan bölümdeki bazı sabit bilgileride başka veriden alıyor ve içinde formüller var ve sabit kalması lazım kopyalanınca hücrelerde değişiyor kopyaladıktan sonra veri aldığı yerden vaz geçmesi lazım normal bir hücreden aşağı doğru kopyalama yapınca nasıl a1 ise oluyor b1 burdada aynı sorun var

 

[Korhan Ayhan]

Selamlar,

Bu durumda sabit verileri ve değişken verileri içeren hücre adreslerini belirtirmisiniz. Kodu buna göre düzenlemek gerekecektir.

 

[ThEeNCi]

ekledim dosayayı korhan bey çok teşekür ederim

 

[Korhan Ayhan]

Selamlar,

Formülle ürettiğiniz değer metin olduğu için küsüratları göremiyorsunuz. Formülü aşağıdaki şekilde değiştirip deneyiniz.

J5 hücresine uygulayınız.

=(EĞER(E$5="8N";I$16;"")&EĞER(E$5="8F";I$16;"")&EĞER(E5="10N";I15;"")&EĞER(E5="10F";I15;"")&EĞER(E5="12N";I14;"")&EĞER(E5="12F";I14;"")&EĞER(E5="14N";I14;"")&EĞER(E5="14F";I14;"")&EĞER(E5="16N";I14;"")&EĞER(E5="16F";I14;"")&EĞER(E5="18N";I14;"")&EĞER(E5="18F";I14;"")&EĞER(E5="20N";I14;"")&EĞER(E5="22N";I14;"")&EĞER(E5="24N";I14;"")&EĞER(E5="25N";I14;"")&EĞER(E5="26N";I14;"")&EĞER(E5="26N";I14;"")&EĞER(E5="32N";I14;"")&EĞER(E5="PARÇA";I14;"")&EĞER(E5="KANGAL";I14;""))*1

Ayrıca aktarım kodunuda aşağıdaki şekilde değiştiriniz.

Option Explicit
 
Sub AKTAR()
    Dim Satır As Long
    
    Application.ScreenUpdating = False
    Sheets("DEMIRGIRIS").Range("A5:P13").Copy
    Satır = Sheets("DEMIR").Range("A1048576").End(3).Offset(1).Row
    Sheets("DEMIR").Range("A" & Satır).PasteSpecial Paste:=xlPasteAll
    Sheets("DEMIR").Range("A" & Satır).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ThEeNCi]

korhan bey tam oldu fakat yine sorun çıktı bu seferde toplamlardaki formülleri aktarmıyor metin olarak görüyor copy yaparken hücre hücre kopyala yada şu hücreleri kopyalama diyebilirmiyiz

 

[ThEeNCi]

yada formüller için ikinci bir tuşmu tanımlasam hücre hücre kopyalama oluyorsa

 

[ThEeNCi]

korhan bey konsepti değiştirdim iyice otursun o zaman sorun çıkmaz sanırım tıkanırsam yine yazarım çok teşekür ederim yardımlarınız için