Veri aktarımı

[ERENYILMAZ]

Form aradım birçok örnekler buldum fakat bir türlü sorunumu çözemedim.Ustalarımdan yardım bekliyorum.Şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
For SAT = 1 To 10
S = IIf(S2.[A1] = "", 1, S2.Cells(65536, "A").End(3).Row + 1)
S2.Cells(S, "A") = S1.Cells(2, SAT).Value
Next
End Sub

 

[mami68]

Birde makrosuz formül

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim i As Long, k As Byte
sat = Sheets("Sayfa2").Cells(65536, "B").End(xlUp).Row + 1
adr = Range(Cells(sat, "A"), Cells(sat, "J")).Address
Sheets("Sayfa2").Range(adr).Value = Sheets("Sayfa1").Range("A2:J2").Value
MsgBox "İşlem Tamam"
End Sub

 

[ERENYILMAZ]

Sayın VBA yardımlarınız için çok teşekkür ederim.Yalnız ben sorumu tam açıklayamadım, özür dilerim.Sayfa 2 ye A1 den aşağıya doğru değil A:J hücre arasına aktarmak istiyorum.Bunu belirtmem gerekiyordu tekrar özür dilerim.

 

[Orion1]

Ben 4 nolu mesaja bir şeyler yazdım.O şekildemi istiyorsunuz.

 

[mami68]

Kardeş B:K arası baktın mı kaydırsan olmuyormu.

 

[ERENYILMAZ]

Sayın Orion 2 İlginize çok teşekkür ederim. Sorumu tam açıklayamadım, özür dilerim.Benim istediğim şu şekilde Sayfa1 a2:j2 hücre aralığına girilecek değerler sayfa2 a:j hücre aralığına aktarılacak. Yalnız Sayfa 1 a2:j2 aralığındaki veriler değişiyor, değiştirildiğinde sayfa 2 de bir önceki kayıtın altına eklenerek devam edecek yani enson satıra sürekli veri aktarılacak şekilde olmasını istiyorum. İyi çalışmalar.

 

[Orion1]

4 nolu mesajda dosyayı güncelledim.İndirip deneyiniz.

 

[ERENYILMAZ]

Sayın Orion 2 Yardımlarınız için çok teşekkür ederim.Tam istediğim gibi olmuş.
İyi çalşmalar dilerim.

 

[Ali]

Alternatif

Sayfa1 içindeki bir butona bağlayınız.

Sub Aktar()
Dim rngcopy As Range
Dim rngpaste As Range
Set rngcopy = [A2:J2]
Set rngpaste = Sheets("Sayfa2").Range("A65536").End(xlUp)(2)
rngcopy.EntireRow.Copy rngpaste
Set rngcopy = Nothing
Set rngpaste = Nothing
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
For SAT = 1 To 10
S = IIf(S2.[J1] = "", 1, S2.Cells(65536, "J").End(3).Row + 1)
S2.Cells(S, SAT) = S1.Cells(2, SAT)
Next
End Sub

 

[Orion1]

Sayın Orion 2 Yardımlarınız için çok teşekkür ederim.Tam istediğim gibi olmuş.
İyi çalşmalar dilerim.

Rica ederim.
İyi çalışmalar.

 

[ERENYILMAZ]

Sayın ALİ ve Sayın VBA Sizlerede yardımlarınız için teşekkür ederim.İyi çalışmalar.