sayfalar arası veri aktarımı

[ebege]

arkadaşlar forumda arattırdım Bir şeyler okudum yapmaya çalıştım ama anlamadım. sorum şu 1. sayfaya buton koyup butona tıkladığımda diyelim A7..T7 ye kadarki bilgileri 2. sayfada örnek olarak 27. satıra aktarmayı..ayrıca 1. sayfadaki A2' deki veriyi 2. sayfadaki B5' e 1. sayfadaki C3' dekini 2. sayfadaki c8' e gibi spesifik olsun istiyorum bunu nasıl yapabilirim yardımcı olursanız çok teşekkür ederim.

 

[cems]

Bir örnek yükler misiniz ? Bu şekilde örneğinizi de hazırlatıyorsunuz. Sonra ben öyle istemedim oluyor, düşündüğünüzü yapmamız imkansız birşey ama gördüğümüzü yapmamız o kadar zor değil

 

[ebege]

kusura bakmayın örneği eklentide

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 A sütununda aktarmak istediğin satırı seçtikten son kodları çalıştırın.

Sub kod_bir()
aa = Selection.Row
If Selection.Column = 1 And ActiveSheet.Name = "Sayfa1" Then
Sayfa2.Cells(29, "a") = Sayfa1.Cells(aa, "a")
Sayfa2.Cells(29, "b") = Sayfa1.Cells(aa, "c")
Sayfa2.Cells(29, "c") = Sayfa1.Cells(aa, "b")
Sayfa2.Cells(29, "e") = Sayfa1.Cells(aa, "f")
Sayfa2.Cells(29, "f") = Sayfa1.Cells(aa, "g")
Sayfa2.Cells(29, "g") = Sayfa1.Cells(aa, "d")
Sayfa2.Cells(29, "h") = ""
Sayfa2.Cells(29, "ı") = Sayfa1.Cells(aa, "e")
Sayfa2.Cells(29, "j") = Sayfa1.Cells(aa, "h")
Sayfa2.Cells(29, "l") = Sayfa1.Cells(aa, "k")
Sayfa2.Cells(29, "m") = Sayfa1.Cells(aa, "l")
Sayfa2.Cells(29, "n") = Sayfa1.Cells(aa, "m")
Else
MsgBox "A sütununda seçin yapın"
End If
End Sub

. . .

 

[ebege]

yardımlarınız için çok teşekkür ederim.

 

[ebege]

peki hocam sayfa 1'de belge numarası1.....14'e kadar sırayla buton koyup tıklayınca bu işlemlerin olmasını istiyorum. yukarıdaki kodu denedim sorunsuz çalışıyor ama buton koyup denediğimde(geliştiriciden ekle dediğimde) çalışmıyor. nerede hata yapıyorum acaba

 

[Emir Hüseyin Çoban]

. . .

Merhaba. Hata yapmıyorsunuz.
Siz sorunuzda da bunu dile getirmiştiniz.
Ama ben çok fazla buton ve kod olmasın diye, seçili alanı aktaracak şekilde kodlamıştım.

Sizin istediğiniz şekilde, her satır bir buton ve makro yazılmalı.

7. satır için:

Sub kod_satır_7()

aa = "7"
Sayfa2.Cells(29, "a") = Sayfa1.Cells(aa, "a")
Sayfa2.Cells(29, "b") = Sayfa1.Cells(aa, "c")
Sayfa2.Cells(29, "c") = Sayfa1.Cells(aa, "b")
Sayfa2.Cells(29, "e") = Sayfa1.Cells(aa, "f")
Sayfa2.Cells(29, "f") = Sayfa1.Cells(aa, "g")
Sayfa2.Cells(29, "g") = Sayfa1.Cells(aa, "d")
Sayfa2.Cells(29, "h") = ""
Sayfa2.Cells(29, "ı") = Sayfa1.Cells(aa, "e")
Sayfa2.Cells(29, "j") = Sayfa1.Cells(aa, "h")
Sayfa2.Cells(29, "l") = Sayfa1.Cells(aa, "k")
Sayfa2.Cells(29, "m") = Sayfa1.Cells(aa, "l")
Sayfa2.Cells(29, "n") = Sayfa1.Cells(aa, "m")

End Sub

aa="8" ve 9 olarak değiştirerek çoğaltabilirsiniz.
Örnek dosyada ekliyorum.

. . .

 

[ebege]

çok teşekkür ederim.