Aktarmada sorun

[bravo64]

Merhaba arkadaşlar,iyigünler öncelikle..
sürekli kullandığım bir kod var aralık aktarımıyla ilgili..şimdi yeni bir uygulama yapıyorum ama ;
Sub ihraçaktar()
If MsgBox("BU FORMU AKTARMAYI ONAYLIYOR MUSUNUZ?", vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("ihraç").Range("a9:g28").Copy
sat = Sheets("stok").Cells(65536, 10).End(xlUp).Row
Sheets("stok").Cells(sat + 1, 10).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox ("STOKLARA İÞLENMİÞTİR")
End Sub
problem,aralıktaki dolu satırlar stok sayfasında 229.satırdan itibaren altalta sıralanıyor..
aynı kodu başka konu ve projelerde kullanıyorum hiç sorun yok ama bunda böyle bir problem var..
teşekkür ederim,iyilikler diliyorum.

 

[bravo64]

Ayrıca her aktarma yaptığımda 10 satır alttan yazmaya başlıyor.yani stok sayfasında enson yazılı satırdan sonrası boş oldugu halde..

 

[Levent Menteşoğlu]

Kodunuzda böyle bir soruna sebep olacak bir satır görünmüyor, ancak hücrelerde space tuşu ile verilmiş boşluk veya sıfır değeri varsa bunlarıda dikkate alacaktır. Bu durumu bir inceleyin.

 

[bravo64]

Hiç bir sorun yok,ne sıfın nede boşluk sayfa tamamen temiz..

 

[Levent Menteşoğlu]

sat=.... değişkeninden sonra aşağıdaki satırı ekleyin ve sat değişkeninin doğru değeri alıp almadığını msgboxtan görebilirsiniz.

msgbox sat

 

[bravo64]

msgbox 268 olarak gösteriyor.

 

[Levent Menteşoğlu]

Dosyanızı eklerseniz onun üzerinden gidelim.

 

[bravo64]

dosya ektedir

 

[Levent Menteşoğlu]

stok sayfanızdaki j365536 aralığını komple seçip silin ve makroyu tekrar çalıştırın. Çünkü hücreler boş değil hatada buradan kaynaklanıyor.

 

[bravo64]

sevgili leventm,bunu daha öncede yaptım ama far etmiyor.sildikten sonra makroyu sçalıştırın ilk seferde sorun yok ama 2.formu gönderdiğinizde 20 satır sonra kaydediyor aralığı..

 

[Levent Menteşoğlu]

Birde ihraç sayfasındaki a9:g28 aralığını slip yeniden veri girerek deneyin.

 

[Levent Menteşoğlu]

Kodu aşağıdaki şekilde değiştirerek deneyin.

[vb:1:5df364975a]Sub ihraçaktar()
If MsgBox("BU FORMU AKTARMAYI ONAYLIYOR MUSUNUZ?", vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("ihraç").Range("a9:g28").Copy
sat = WorksheetFunction.CountA(Sheets("stok").[l3:l65536]) + 3
Sheets("stok").Cells(sat, 10).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox ("STOKLARA İÞLENMİÞTİR")
End Sub[/vb:1:5df364975a]

 

[bravo64]

yoruyorum ama ,ilk satırı kaydettikten sonra başka aktarmıyor..ben sat+1 yaptım denedim sonra ama 2 satırdan sonra yine kayıt yapmıyor..(kodunuzu aynen kopyaladım)
Anlamadığım bu kodu başka bir sürü dosyada kullanıyorum hiç problem yok..

 

[Levent Menteşoğlu]

soruna ihraç sayfasındaki formül ve doğrulama ile yapılan listeler neden oluyor. Formüllerdeki sonuçlar veri yoksa boşluk olarak algılanıyor boşlukta bir veri olduğundan kodu yanıltıyor, formüllerdeki "" yerine 0 (sıfır) yazarak deneyin birde

 

[bravo64]

hiç birşey değişmedi ,ihraçdaki tüm formül ve doğrulamaların tamamını kaldırdım ama sonuç aynı..Başka bir çalışma sayfasında deneyeceğim artık ..
bu arada başka bir soru sormak istiyorum mümkünse;
Range("a4:a136,b4:b136,f4:f136 , d4:d136 , k4:k136 , g4:g136,h4:h136,m4:m136").Copy bu kod problemsiz çalışıyorda acaba 136 değerini inputbox ile verirsem yazılım nasıl olabilir..Yani c=inputbox sonucunda c'yi nasıl yerleştirmeliyim formule..c=136 138 yada 140 olabilir...
teşekkür ederim..

 

[abazya]

merhaba


İhraç sayfasında 13 ile 14 satırda formül yok. Çalıştı diyorsan Kolay gelsin

 

[bravo64]

Þimdi kod çalıştı normal olarak..sat+1 yaptım ve tekrar denedim şimdi problem yok..çok teşekkürler..
Diğer soruyu yeni başlıktamı sormam gerekiyor?

 

[bravo64]

evet sayın abazya, tüm formülleri sildim,herhalde onun için çalışıyor.
İlginize teşekkür ederim.