bravo64
Altın Üye
- Katılım
- 21 Eylül 2005
- Mesajlar
- 184
- Excel Vers. ve Dili
- ofis 365 İngilizce
- Altın Üyelik Bitiş Tarihi
- 25-10-2024
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.
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.