tablar arası veri aktarma

[ilkiliroglu]

sevgili arkadaşlar ekte gönderdiğim dosyada verileri aktar butonuna bastığımda A tabından B tabına ilgili veriler aktarılmakta ben aynı butona bastığımda C tabında ki verilerin de A tabından alınmasını istiyorum şimdiden yardımlarınız için çok teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sanırım sorunuzda anlaşılmayan kısımlar var. Örnek olarak eklediğiniz dosyada C sayfası boş. Ayrıca C sayfasından A sayfasına aktarım yapılırken A sayfasındaki ilk boş satırdan itibarenmi olacak yoksa olan veriler silinip öylemi aktarım olacak. Bu gibi bilgileri verirseniz yardımcı olmaya çalışırız.

 

[ilkiliroglu]

verilerin a tabından c tabına aktarılmasını istiyorum bunun için a tabıbda bulunan verileri aktar butonunu kullanmak istiyorum yani a tabından b tabına yapılan aktarımın bir benzeri olacak o aktarımıda sizler sayesinde yapmıştım ilginiz için şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

C sayfasındaki hangi sütunlar A sayfasında hangi sütunlara aktarılacak?

 

[ilkiliroglu]

sayın cost control

veriler A tabından C tabına aktarılacaktır yani ben A tabında verileri girdikten sonra A tabında bulunan verileri aktar butonuna basarak C tabındaki sutunları doldurmak istiyorum aktarım şu sutunlar arasında olacaktır

A tabındaki sırasınla a,b,c,h,j,n,l,o,r,s,t,u,v,ac,ad,ae,af,ag,ah sutunları nın C tabındaki sırasıyla a,b,c,d,e,f,g,h,ı,j,k,l,m,n,o,p,q,r,s sutunlarına aktarılmasını istiyorum ancak bu yapılırken A tabından B tabına yapılan aktarımında bir değişiklik olmaması gerekiyor ama. A tabındaki verilerin B ve C tabına aktarımını sağlamak ilginiz için şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Pardon ben sorunuzu okurken yanlış alıgılamışım. Çalışmanızdaki kodu aşağıdaki ile değiştirip denermisiniz.

Sub AKTAR()
Dim Satır As Long
Set S1 = Sheets("A")
Set S2 = Sheets("B")
Set S3 = Sheets("C")
Satır = 1

For Each Aralık In S1.Range("A5:A" & [A65536].End(3).Row)
If Aralık <> 0 Then
    Satır = Satır + 1
    S2.Cells(Satır, "A") = Aralık
    S2.Cells(Satır, "B") = Aralık.Offset(0, 1)
    S2.Cells(Satır, "C") = Aralık.Offset(0, 2)
    S2.Cells(Satır, "D") = Aralık.Offset(0, 10)
    S2.Cells(Satır, "E") = Aralık.Offset(0, 9)
    S2.Cells(Satır, "F") = Aralık.Offset(0, 7)
    S2.Cells(Satır, "G") = Aralık.Offset(0, 8)
    S2.Cells(Satır, "H") = Aralık.Offset(0, 11)
    S2.Cells(Satır, "I") = Aralık.Offset(0, 14)
    S2.Cells(Satır, "J") = Aralık.Offset(0, 25)
    S2.Cells(Satır, "K") = Aralık.Offset(0, 26)
    S2.Cells(Satır, "L") = Aralık.Offset(0, 27)
    End If
Next

Satır = 1

For Each Aralık In S1.Range("A5:A" & [A65536].End(3).Row)
If Aralık <> 0 Then
    Satır = Satır + 1
    S3.Cells(Satır, "A") = Aralık
    S3.Cells(Satır, "B") = Aralık.Offset(0, 1)
    S3.Cells(Satır, "C") = Aralık.Offset(0, 2)
    S3.Cells(Satır, "D") = Aralık.Offset(0, 8)
    S3.Cells(Satır, "E") = Aralık.Offset(0, 10)
    S3.Cells(Satır, "F") = Aralık.Offset(0, 14)
    S3.Cells(Satır, "G") = Aralık.Offset(0, 12)
    S3.Cells(Satır, "H") = Aralık.Offset(0, 15)
    S3.Cells(Satır, "I") = Aralık.Offset(0, 18)
    S3.Cells(Satır, "J") = Aralık.Offset(0, 19)
    S3.Cells(Satır, "K") = Aralık.Offset(0, 20)
    S3.Cells(Satır, "L") = Aralık.Offset(0, 21)
    S3.Cells(Satır, "M") = Aralık.Offset(0, 22)
    S3.Cells(Satır, "N") = Aralık.Offset(0, 29)
    S3.Cells(Satır, "O") = Aralık.Offset(0, 30)
    S3.Cells(Satır, "P") = Aralık.Offset(0, 31)
    S3.Cells(Satır, "Q") = Aralık.Offset(0, 32)
    S3.Cells(Satır, "R") = Aralık.Offset(0, 33)
    S3.Cells(Satır, "S") = Aralık.Offset(0, 34)
    End If
Next
    MsgBox "AKTARIM İŞLEMİ TAMAMLANMIŞTIR...", vbInformation
End Sub

 

[ilkiliroglu]

Sayin Cost Control
İlgİnİz İÇİn Çok TeŞekkÜrler VerdİĞİnİz Kodu Denedİm Ama Bİr Şey DeĞİŞmedİ Benİm Uygulamada YaptiĞim Bİr Hatadan Kaynaklaniyor Olabİlİr LÜtfen Bİrde Sİz Denermİsİnİz

 

[Korhan Ayhan]

Selamlar,

Genelde yazdığım kodları denemeden göndermemeye özen gösteriyorum. Doğal olarakta size önerdiğim kodlarıda deneyerek foruma eklemiştim. Dediğiniz gibi belki siz uygularken yanlış işlemler yapmış olabilirsiniz. Çalışan örnek dosyanız ektedir.

 

[ilkiliroglu]

sayın cost control ilginiz ve yardımlarınız için çok teşekkür ederim

saygılarımla

ilkiliroglu

 

[ilkiliroglu]

sayın cost control,
A sekmesinde bulunan j sutunu yerine ı sutununu alınmakta ayrıca A tabındaki ac ve ah sutunları arasında bir kayma söz konusu incelerseniz ne demek istediğimi daha iyi anlayacaksınız ilginiz için teşekkürler

 

[Korhan Ayhan]

Selamlar,

Verdiğiniz bilgiler doğrultusunda üstteki mesajımdaki dosyayı güncelledim. Kontrol edermisiniz.

 

[ilkiliroglu]

sayın cost control
ilginiz ve yardınmlarınız için çok teşekkür ederim kesinlikle işimi gördü.

saygılar