En Alttaki Satırdan Kopyalayarak devam Etsin

[tevfikdemir]

Merhaba,
Aşağıdaki kodla Opelsip sayfasındaki "Geldi" yazısını gördüğü satırları süzüyor ve o satırları Hazir sayfasındaki gelenlerin içersine kopyalıyor.Buraya kadar problem yok.Fakat ikinci kez dosya yüklediğimde Hazir sayfasının en altındaki satırdan devam etmesini istiyorum bir türlü beceremiyorum.İkincisinde hiçbir işlem yapmıyor.
Saygılar

[/code]Selection.AutoFilter Field:=10, Criteria1:="Geldi"
Sheets("Opelsip").Range("a2:j65536").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Hazir").Range("a" & Worksheets("Hazir").[a65536].End(xlUp).Row + 1)
Sheets("Opelsip").Range("a2:j65536").SpecialCells(xlCellTypeVisible).Delete
Sheets("opelsip").Select

 

[Levent Menteşoğlu]

Worksheets("Hazir").[a65536].End(xlUp).Row + 1

Kodunuzun içindeki yukarıdaki kod zaten son satırı buluyor olmalı.

 

[tevfikdemir]

İlk Çalıştırdığımda Buluyor.Yani 1.Satırda başlıklar var onların üzerine yazmıyor.Fakat Daha sonra yeni parça geldiğinde bunları devam etmiyor.

Ben programı Ekte gönderiyorum.TXT dosyası ile beraber.

Programı çalıştırınca YEDEKPARÇA PLATFORMU ->Parça Girişi deyip Ekteki TXT dosyasını gösterince yeni gelen parçaları Opelsip dosyasında karşılaştırıp Hazir sayfasının en altına atması gerekiyor.Bu işlemi ilkinde yapıyor fakat daha sonra yapmıyor.Anlayamadım.!!!Şu anda Hazır Sayfası 17.Satıra kadar dolu.Yeni parçaları 18.Satırdan devam etmesi gerekiyor.(Dediğiniz gibi yukarıdaki kod ile)

Saygılar

 

[tevfikdemir]

Problemi Çözebilen Arkadaş Varmı ???

Saygılar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:db73ae3d76]Selection.AutoFilter Field:=10, Criteria1:="Geldi"
Sheets("Opelsip").Range("a3").CurrentRegion.Copy
sat = Worksheets("Hazir").[a65536].End(xlUp).Row + 1
Sheets("Hazir").Range("a" & sat).PasteSpecial Paste:=xlPasteValues
Sheets("Hazir").Rows(sat).Delete
Sheets("opelsip").Select[/vb:1:db73ae3d76]

 

[tevfikdemir]

Büyük Usta Sayın Levenm program problemsiz çalışıyor.Elinize ,Beyninize,göz nurunuza sağlık.

Saygılar Büyük Usta.

 

[Levent Menteşoğlu]

Rica ederim. İşinize yaradığına sevindim. İltifatınız için teşekkür ederim. Ama ben büyük usta değilim, bunuda belirtmek istiyorum. Foromumuzda gerçekten usta insanlar mevcuttur.