Excel yeni yapılan işlemleri algılamıyor.

[Carpintero]

Merhabalar,

Arkadaşlar aşağıda ki makro ile kritere uyan verileri yan tarafa taşımam gerekiyor lakin
son satırı bulmuyor makro. Taşınan tüm verileri aynı satıra yazıyor.

Son satırı buldurduğum bu satırı tek başına çalıştırdığım zaman sıkıntı yok.
Cells(5, "S").End(xlUp).Offset(1, 0).Select

Sorun yapılan işlemi excel algılamıyor. Ne yapmam lazım acaba ?
Excel in ayarlarında mı bi sorun var veyahut benim makroda mı bi sorun var
Lütfen yardımcı olun bana. Teşekkürler.

Sub makro3()
'-----------------------------------
Range("S5:AG156").Select: Selection.ClearContents: Range("A1").Select 'Alanı Temizle
'-----------------------------------
sst = Range("J" & Rows.Count).End(3).Row

For i = 5 To sst
If Cells(i, "J").Value = Cells(1, "A").Value Then
Range("C" & i & ":P" & i).Select
Selection.Copy

Cells(5, "S").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

End If: Next i
End Sub

 

[askm]

Örnek eklerseniz bakmaya çalışalım. Hata seçilen alanın yapıştırılacak alandan büyük olmasından kaynaklı olabilir.

 

[Carpintero]

yok hayır. Kritere uyan tüm veriler aktarılıyor.
Lakin tamamını aynı satıra aktarıyor verilerin.
döngü bir önceki aktardığı veri satırını boş olarak görüyor.

 

[Ömer BARAN]

Merhaba.

Sorularınızı, gerçek belgenizle aynı yapıda ve varsa kullanılan UserForm ve kodlar içinde olacak şekilde örnek belge ile desteklemenizi öneriyorum.
Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin açıklamalar, cevabımın altındaki İMZA bölümünde var.

Sorun kuvvetle muhtemel S5 hücresinden yukarıdaki ilk boş hücre tanımlaması ile ilgili.
5 sayısını 65536 olarak değiştirerek deneyin isterseniz.
.

[B][COLOR="blue"]Cells([COLOR="Red"]5[/COLOR], "S")[/COLOR][/B].End(xlUp).Offset(1, 0).Select

 

[Carpintero]

Çok Teşekkür ederim Ömer bey.
Dediğiniz gibi yaptım sorun düzeldi.

Uyarınızı dikkate alacağım sonra ki seferde.
Saygılar.

 

[Ömer BARAN]

Çok Teşekkür ederim Ömer bey.
Dediğiniz gibi yaptım sorun düzeldi.

Uyarınızı dikkate alacağım sonra ki seferde.
Saygılar.

Kolay gelsin.
.