sayfalar arası veri transferi

[EMRE ÞAHAN]

günaydın arkadaşlar,
üzerinde uğraştığım bir çalışmada sonuç aşamasına geldim ama takıldım yardımlarınızı rica ediyorum.
ekte ki dosyada form üzerindeki FİÞ KAPAT butonuna bastığımda;
o an FORM sayfasında bulunan dolu hücreleri DATABASE sayfasında fişnumarasına göre sıralayarak kaydetmesi ve en son olarak FORM sayfasındaki verileri silmesi.
ilginize teşekkür ederim.

 

[Mahmut Bayram]

Syn EMRE ÞAHAN, aşağıdaki kodu bir deneyebilir misiniz
Sheets("FORM").Select
Range("A2:J20").Select
Selection.Copy
Sheets("database").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True

 

[isakarakus]

[vb:1:17989524d0] Sheets("FORM").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("database").Select
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("FORM").Select
Selection.ClearContents[/vb:1:17989524d0]

fiş kapat butonuna bu satırları ekleyin
veriler aktarılacak ve form silinecektir.

ancan form sayfasında birim sutunu eklenmeli

 

[EMRE ÞAHAN]

sayın mahmut bayram
verdiğiniz kodu denedim verileri kaydederken satır olarak değilde sutuna aktarıyor.
yani A10,B10,C10,D10,E10 kaydetmesi gereken veriyi
A10,A11,A12,A13,A14 hücrelerine aktarıyor.

 

[EMRE ÞAHAN]

sayın isakarakus verdiğiniz bilgi için teşekkür ederim.
çalışmam tamamlanmış oldu ...

TEÞEKKÜRLER excel.web.tr.

 

[EMRE ÞAHAN]

sayın isakarakus denemelerim sırasında bir şey fark ettim. FORM sayfasında tek satır veri varsa hata veriyor. bu konuda ne yapabilirim.

 

[Mahmut Bayram]

haklıymışısınız ben denememiştim syn isakarakus, kodları daha güzel

 

[isakarakus]

şu şekilde düzelttim.
eğer a3 boşsa sadece 1 satırı seçiyor.

Private Sub CommandButton2_Click()
Sheets("FORM").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
If [a3] = "" Then GoTo atla
Range(Selection, Selection.End(xlDown)).Select
atla:
Selection.Copy
Sheets("database").Select
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("FORM").Select
Selection.ClearContents

End Sub

 

[isakarakus]

If [a3] = "" Then GoTo atla
Range(Selection, Selection.End(xlDown)).Select
atla:

bu üç satır yerine şu satırı da kullanabiliriz.

If [a3] <> "" Then Range(Selection, Selection.End(xlDown)).Select

 

[EMRE ÞAHAN]

sayın isakarakus çok teşekkürler.

 

[EMRE ÞAHAN]

arkadaşlar yukarıdaki örnekte miktar hanesine kg cinsinden sayı girerken ondalık kısmında nokta(.) yerine virgülü(,) kullana bilirmiyim nasıl bir düzenleme yapmam gerekir.