Satır ekleme hakkında

[sırakaya]

Merhabalar;

Aramalarda bir sonuç elde edemedim,örnekte çoklu evrak kayıt sayfasına girilen verileri seçip makro ile arşiv bölümüne taşıyorum fakat,daha sonra ikinci aşamada yeniden çoklu evrak kayıt sayfasında mesela 4 satır veri gireceksem satırları üst üste ekliyor ve satır kaybı oluşuyor arşiv sayfasında, yapmak istediğim çoklu evrak kayıt sayfasında sürekli olarak arşive veri ekleyeceğim. Bazen tekli bazen ise çoklu evrak kayıt eklemek istiyorum. Yardımlarınızı bekliyorum.

 

[dEdE]

Merhaba,
Aşağıdaki kodları dener misiniz?

Sub Tekli_Kayıt()
    ss2 = Sheets("arşiv").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("tek evrak kayıt").Range("A3:G3").Copy
    Sheets("arşiv").Range("A" & ss2).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

Sub Çoklu_Kayıt()
    sS1 = Sheets("çoklu evrak kayıt").Cells(Rows.Count, 1).End(3).Row
    ss2 = Sheets("arşiv").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("çoklu evrak kayıt").Range("A3:G" & sS1).Copy
    Sheets("arşiv").Range("A" & ss2).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

 

[sırakaya]

Merhaba,
Aşağıdaki kodları dener misiniz?

Sub Tekli_Kayıt()
    ss2 = Sheets("arşiv").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("tek evrak kayıt").Range("A3:G3").Copy
    Sheets("arşiv").Range("A" & ss2).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

Sub Çoklu_Kayıt()
    sS1 = Sheets("çoklu evrak kayıt").Cells(Rows.Count, 1).End(3).Row
    ss2 = Sheets("arşiv").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("çoklu evrak kayıt").Range("A3:G" & sS1).Copy
    Sheets("arşiv").Range("A" & ss2).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

Merhaba teşekkür ederim kod çoklu kayıt sayfasından arşive aktarıyor fakat ,farklı müşteri kodu ekleyip tekrar kaydet dediğimde arşivdeki verileri silip son eklenenler kalıyor. Eklenenleri sürekli alta kaydırarak arşivlemesini istiyorum ben mümkünse..çoklu kayıt ve tek evrak kayıta girdiğimde arşive sürekli atmasını istiyorum.videoları falan izleyerek yapmaya çalıştım fakat henüz çok acemiyim

 

[dEdE]

Merhaba,
Kodların içinde verileri silecek herhangi bir komut yok.
Örnek dosyanız ile gerçek dosyanız aynı özellikte ve şekilde değilse sonuç istediğiniz gibi olmayabilir.

...Eklenenleri sürekli alta kaydırarak arşivlemesini istiyorum...

Bunun için aşağıdaki kodu dener misiniz?

Sub Tekli_Kayıt_Kaydırarak()
    Sheets("arşiv").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Sheets("tek evrak kayıt").Range("A3:G3").Copy
    Sheets("arşiv").Range("A2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

Sub Çoklu_Kayıt_Kaydırarak()
    sS1 = Sheets("çoklu evrak kayıt").Cells(Rows.Count, 1).End(3).Row
    Sheets("arşiv").Rows("2:" & sS1 - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Sheets("çoklu evrak kayıt").Range("A3:G" & sS1).Copy
    Sheets("arşiv").Range("A2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

 

[sırakaya]

Merhaba,
Kodların içinde verileri silecek herhangi bir komut yok.
Örnek dosyanız ile gerçek dosyanız aynı özellikte ve şekilde değilse sonuç istediğiniz gibi olmayabilir.


Bunun için aşağıdaki kodu dener misiniz?

Sub Tekli_Kayıt_Kaydırarak()
    Sheets("arşiv").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Sheets("tek evrak kayıt").Range("A3:G3").Copy
    Sheets("arşiv").Range("A2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

Sub Çoklu_Kayıt_Kaydırarak()
    sS1 = Sheets("çoklu evrak kayıt").Cells(Rows.Count, 1).End(3).Row
    Sheets("arşiv").Rows("2:" & sS1 - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Sheets("çoklu evrak kayıt").Range("A3:G" & sS1).Copy
    Sheets("arşiv").Range("A2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Kayıt Ekleme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & Application.UserName & "'e Başarılar Diler."
End Sub

Merhaba tekrardan ben şuan örnek dosya üzerinde göndermiş olduğunuz kodları kopyaladım ve tekli kayıtta herhangi bir problem yok, fakat çoklu kayıta sayfa 1 den b2 den b4 e kadar 3 müşteri ekleyip kaydettim aktardı daha sonra b5 ten b8 e kadar olan kısmı çoklu kayıta basıp kaydet dediğimde arşiv sayfasındaki sonucu verdi,ben o eklemek istediğim 6 müşteriyi göremedim. nerede yanlış yapıyor olabilirim..Dosyamın son halini ekte paylaştım.Gerçek dosyama daha uyarlamadım ikiside aynı formattalar. Saygılarımla;

 

[vardar07]

Galiba yanlış kodları kullanıyorsunuz. Butonlara Sayın dEdE nin verdiği kodları tanımlarsanız doğru çalıştığını görürsünüz.

 

[sırakaya]

Galiba yanlış kodları kullanıyorsunuz. Butonlara Sayın dEdE nin verdiği kodları tanımlarsanız doğru çalıştığını görürsünüz.

Evet dediğiniz gibi ben yanlış yerde kullanmışım.butonlara aktarınca düzeldi. Teşekkür ederim yardımlarınız için..Hayırlı geceler..

 

[vardar07]

Rica ederim.Size de Hayırlı geceler.