girilen değerleri arşive eklemek

[showel]

sayfa 1 de her gün girilen değerler sayfa 2 de alt alta görülecek ve sayfa 1 deki değerleri bir sonraki girişimde silip yeni giriş yapacağız ama sayfa 2 de ilk girdiğim değerler silinmeyerek altına yeni girilen değerleri girecek.bunu nasıl yapabilirim arkadaşlar yardım

 

[bedri41]

Form gibi bir sayfadan tek tek değerleri mi sayfa 2 de alt alta almak istiyorsunuz, yoksa liste şeklinde bir günlük bir kaydı mı ? Taşıyacaksınız. Bir örnek dosya eklermisiniz görelim.

Kolay Gelsin

 

[Emir Hüseyin Çoban]

. . .

Tıkla ~ Sorunun Devamında, Ataç Eklemek( Dosya Eklemek)

. . .

 

[showel]

dosya ekte arkadaşlar

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("GİRİLECEK")
Set S2 = Sheets("ARŞİV")

S1son = S1.[A65536].End(3).Row

For i = 2 To S1son
s2son = S2.[A65536].End(3).Row + 1

S2.Cells(s2son, "A") = S1.Cells(i, "A")
S2.Cells(s2son, "B") = S1.Cells(i, "B")

Next i

S1.Range("A2:" & "B" & S1son).ClearContents

Set S1 = Nothing
Set S2 = Nothing
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[showel]

bu kodları nereye yapıştırmam gerekiyor bununla ilgili bir bilgim yok

 

[bedri41]

Ekteki dosyayı inceleyin
Kolay Gelsin