Sıra No'ya Göre Veri Aktarımı

[Yesilyurtlu]

Değerli Üstadlarım;
Ekli dosyada mümkünse bir konuda yardımlarınızı istirham ediyorum.

Sayfa 1 deki B sütununda ki sıra No' ya göre sayfa 2 deki sıra no'daki bilgiler aktarılabilmesi hususunu rica ediyorum.
Aktarılacak bilgiler ise sayfa 2 deki bilgilerin hepsi.
Birde mümkünse sayfa 1 e formüllerim silinmeyecek ama aktarılan değerleri "ay sonunda güncelleyebilmem için " silebilecek bir makro.

Emeği geçen üstadlarıma teşekkür ediyorum

Selam ve Dua İle

 

[halit3]

Değerli Üstadlarım;
Ekli dosyada mümkünse bir konuda yardımlarınızı istirham ediyorum.

Sayfa 1 deki B sütununda ki sıra No' ya göre sayfa 2 deki sıra no'daki bilgiler aktarılabilmesi hususunu rica ediyorum.
Aktarılacak bilgiler ise sayfa 2 deki bilgilerin hepsi.
Birde mümkünse sayfa 1 e formüllerim silinmeyecek ama aktarılan değerleri "ay sonunda güncelleyebilmem için " silebilecek bir makro.

Emeği geçen üstadlarıma teşekkür ediyorum

Selam ve Dua İle

bu kodu denermisiniz.

Sub aktar()
sat = Worksheets("Sayfa2").[b65536].End(3).Row + 1
For i = 6 To Worksheets("Sayfa1").[b65536].End(3).Row + 1
Worksheets("Sayfa2").Cells(sat, 2).Value = Worksheets("Sayfa1").Cells(i, 3).Value
Worksheets("Sayfa2").Cells(sat, 3).Value = Worksheets("Sayfa1").Cells(i + 1, 3).Value
Worksheets("Sayfa2").Cells(sat, 4).Value = Worksheets("Sayfa1").Cells(i + 2, 3).Value
Worksheets("Sayfa2").Cells(sat, 5).Value = Worksheets("Sayfa1").Cells(i, 4).Value
Worksheets("Sayfa2").Cells(sat, 6).Value = Worksheets("Sayfa1").Cells(i + 1, 7).Value
Worksheets("Sayfa2").Cells(sat, 7).Value = Worksheets("Sayfa1").Cells(i + 2, 7).Value
Worksheets("Sayfa2").Cells(sat, 8).Value = Worksheets("Sayfa1").Cells(i, 5).Value
Worksheets("Sayfa2").Cells(sat, 9).Value = Worksheets("Sayfa1").Cells(i + 1, 5).Value
Worksheets("Sayfa2").Cells(sat, 10).Value = Worksheets("Sayfa1").Cells(i + 2, 5).Value
Worksheets("Sayfa2").Cells(sat, 11).Value = Worksheets("Sayfa1").Cells(i + 2, 10).Value
Worksheets("Sayfa2").Cells(sat, 12).Value = Worksheets("Sayfa1").Cells(i, 11).Value
Worksheets("Sayfa2").Cells(sat, 13).Value = Worksheets("Sayfa1").Cells(i + 1, 11).Value
Worksheets("Sayfa2").Cells(sat, 14).Value = Worksheets("Sayfa1").Cells(i + 2, 11).Value
i = i + 3
sat = sat + 1
Next i
MsgBox "işlem temem"
End Sub

 

[Yesilyurtlu]

Halit abi;

Sayfa 2 deki bilgileri sayfa 1 e getirmedi. Beceremedim

 

[halit3]

ben yanlış anlamışım bunu denermisin

Sub aktar()
Worksheets("Sayfa1").Range("C6:M485"). ClearContents
sat = 6
For i = 6 To Worksheets("Sayfa2").[b65536].End(3).Row + 1
Worksheets("Sayfa1").Cells(sat, 3).Value = Worksheets("Sayfa2").Cells(i, 2).Value
Worksheets("Sayfa1").Cells(sat + 1, 3).Value = Worksheets("Sayfa2").Cells(i, 3).Value
Worksheets("Sayfa1").Cells(sat + 2, 3).Value = Worksheets("Sayfa2").Cells(i, 4).Value
Worksheets("Sayfa1").Cells(sat, 4).Value = Worksheets("Sayfa2").Cells(i, 5).Value
Worksheets("Sayfa1").Cells(sat + 1, 7).Value = Worksheets("Sayfa2").Cells(i, 6).Value
Worksheets("Sayfa1").Cells(sat + 2, 7).Value = Worksheets("Sayfa2").Cells(i, 7).Value
Worksheets("Sayfa1").Cells(sat, 5).Value = Worksheets("Sayfa2").Cells(i, 8).Value
Worksheets("Sayfa1").Cells(sat + 1, 5).Value = Worksheets("Sayfa2").Cells(i, 9).Value
Worksheets("Sayfa1").Cells(sat + 2, 5).Value = Worksheets("Sayfa2").Cells(i, 10).Value
Worksheets("Sayfa1").Cells(sat + 2, 10).Value = Worksheets("Sayfa2").Cells(i, 11).Value
Worksheets("Sayfa1").Cells(sat, 11).Value = Worksheets("Sayfa2").Cells(i, 12).Value
Worksheets("Sayfa1").Cells(sat + 1, 11).Value = Worksheets("Sayfa2").Cells(i, 13).Value
Worksheets("Sayfa1").Cells(sat + 2, 11).Value = Worksheets("Sayfa2").Cells(i, 14).Value
sat = sat + 3
Next i
MsgBox "işlem temem"
End Sub

 

[Yesilyurtlu]

Halit abi ;
Worksheets("Sayfa1").Range("C6:M485").ClearContent s
Bu satır hata veriyor.


Yaptığım işlem:
Kod bölümünde Modül içine kayıt ettim.
Sayfa2 ye düğme attım Aktar Makrosunu gösterdim.

Düğmeyi klikleyince Yukarıda ki satır sarı renkli olarak hata veriyor.
işlem hatasımı yaptım

 

[halit3]

aradaki boşluğu sil birleştir
ClearContents

 

[Yesilyurtlu]

Halit Abi;
Vergi İndirimini Asgari Geçim Oranına, Asgari Geçim Oranınıda Asgari Geçim Tutarı kısmına aktarıyor.Yani G sütunu 1 satır alta aktarıyor.Diğerleri mükemmel abi

 

[halit3]

bu kodu denermisin

Sub aktar()
Worksheets("Sayfa1").Range("C6:M485"). ClearContents
sat = 6
For i = 6 To Worksheets("Sayfa2").[b65536].End(3).Row + 1
Worksheets("Sayfa1").Cells(sat, 3).Value = Worksheets("Sayfa2").Cells(i, 2).Value
Worksheets("Sayfa1").Cells(sat + 1, 3).Value = Worksheets("Sayfa2").Cells(i, 3).Value
Worksheets("Sayfa1").Cells(sat + 2, 3).Value = Worksheets("Sayfa2").Cells(i, 4).Value
Worksheets("Sayfa1").Cells(sat, 4).Value = Worksheets("Sayfa2").Cells(i, 5).Value
Worksheets("Sayfa1").Cells(sat, 7).Value = Worksheets("Sayfa2").Cells(i, 6).Value
Worksheets("Sayfa1").Cells(sat + 1, 7).Value = Worksheets("Sayfa2").Cells(i, 7).Value
Worksheets("Sayfa1").Cells(sat, 5).Value = Worksheets("Sayfa2").Cells(i, 8).Value
Worksheets("Sayfa1").Cells(sat + 1, 5).Value = Worksheets("Sayfa2").Cells(i, 9).Value
Worksheets("Sayfa1").Cells(sat + 2, 5).Value = Worksheets("Sayfa2").Cells(i, 10).Value
Worksheets("Sayfa1").Cells(sat + 2, 10).Value = Worksheets("Sayfa2").Cells(i, 11).Value
Worksheets("Sayfa1").Cells(sat, 11).Value = Worksheets("Sayfa2").Cells(i, 12).Value
Worksheets("Sayfa1").Cells(sat + 1, 11).Value = Worksheets("Sayfa2").Cells(i, 13).Value
Worksheets("Sayfa1").Cells(sat + 2, 11).Value = Worksheets("Sayfa2").Cells(i, 14).Value
sat = sat + 3
Next i
MsgBox "işlem temem"
End Sub

 

[Yesilyurtlu]

Halit Abi ;

Eline Sağlık. Hakını Helal Et.Zahmet verdim size. Teşekkür Ederim

Dua ile

 

[halit3]

lyl akşamlar