hücre dolu ise sağına yapıştırma

[xklxzet]

Merhabalar, ustaların yardımına ihtiyacım var:
Sayfa 1'de elle veri girilen bir tablo var. Bu tabloda makro çalışınca, mesela Sayfa 1'in, B2 hücresine yazılan veri, sayfa 2'nin B2 hücresine kopyalanacak. Sayfa 1'de B2 hücresinde veri silinip başka bir veri girildiğinde ve makro tekrar çalıştığında, Sayfa 2'de C2 hücresine kopyaanacak, ya da 2 satırında dolu olan son hücrenin sağına yapışacak. Bu şekilde d2, e2 .... diye veri silinip güncellendikçe gidecek.
Eğer veri silindikten sonra başka veri yazılmaz ve hücre boş bırakırsa, makro çalışsa bile kopyalama yapmayacak.
Böyle bir kod yazabilecek arkadaşlardan yardım etmelerini rica ediyorum.

 

[vardar07]

Öncelikle Foruma hoş geldiniz. Makro yazmamak için öncelikle sizin içerisine açıklaması yazılmış örnek bir dosyanızı eklemeniz lazım. Dosya eklemeniz sağlıklı ve kısa sürede sonuca ulaşmaktır. Dosya eklemeyi bilmiyorsanız imza bölünü okuyun.

 

[xklxzet]

İlginiz için teşekkürler, dosyayı aşağıda ki linke yükledim;

https://drive.google.com/file/d/0B3mwkdDkSV_RbWtkdVRHSTJUNW8/view?usp=sharing

Gerekli açıklamaları dosyada yaptım.

 

[vardar07]

Buyurun.

Sub aktar()
Set s1 = Sheets("sayfa1")
son = s1.Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
syf = Trim(s1.Cells(i, "A")): Set s2 = Sheets(syf)
For k = 2 To 6
a = s1.Cells(1, k)
Set bul = s2.Range("A:A").Find(a, , xlValues, xlWhole)
sut = s2.Cells(bul.Row, Columns.Count).End(1).Column + 1
If Not bul Is Nothing Then
s2.Cells(bul.Row, sut) = s1.Cells(i, k)
End If
Next
Next
End Sub

 

[xklxzet]

Tam istediğim gibi

Elinize kolunuza sağlık, tam istediğim gibi olmuş.

 

[xklxzet]

Ancak yazdığınız kodu kendi projeme uygulayamadım. Kodun değerlerini değiştirip uygularım diyordum ama yapamadım. Aşağıda ki projeye bu kodu uyarlamanın bir yolu var mı?
https://drive.google.com/file/d/0B3mwkdDkSV_RWFBRVGRGV3gzSWs/view?usp=sharing

 

[vardar07]

Ancak yazdığınız kodu kendi projeme uygulayamadım.

Konuda açtığınız soru ile orjinal istediğiniz çok farklı. Bende uygulayamadım. Malesef tarafımdan buna cevap verecek durumum yok. Belki diğer arkadaşlar yardımcı olabilirler.

 

[xklxzet]

Teşekkür ederim ilgilendiniz. Son olarak size bir şey daha sormak istiyorum;
https://drive.google.com/file/d/0B3mwkdDkSV_RZHhRckxoRWFqbVk/view?usp=sharing