veri Kaydetme

[sarıyıldız]

Arkadaşlar. Herkese merhabalr. öncelikle şimdiye kadar yaptığınız destek ve yarımlar için herkese teşekkür ederim.

Yeni bir sıkıntı ile karşı karşıyayım.

Elimde bir liste var. listede çeşitli başlıklar var. Excelde ayrı bir sayfa açıp düşey ara formulü ilr istediğim veriyi listeden aktarıyorum.

Sıkıntım şurada. Düşey ara ile aktardığım sayfada bir işlem yapıp, veriyi istediğim başka bir sayfaya yazdırayım.

Bu işlem formulle olurmu? yoksa VB kodları ile mi olur?

Yardımcı olursanız çok memnun olurum. Ekte örnek dosya gönderiyorum.

Teşekkür eder, iyi çalışmalar dilerim.

 

[Orion1]

Dosyanız ektedir.
AKTAR butonuna tıklayınız.

Sub aktar59()
Dim sh As Worksheet, sat As Long
Sheets("Sayfa2").Select
Set sh = Sheets("A SINIFI")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 9
    sh.Cells(sat, i).Value = Cells(i, "B").Value
Next i
MsgBox "Veriler A Sınıfı sayfasına aktarıldı." & vbLf & _
        "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[muygun]

Merhaba;
Evren bey sorunu çözmüş ama alternatif olsun.
İyi çalışmalar.

 

[sarıyıldız]

Teşekkür ederim

muygun ve orion01 arkadaşlarım. Yardımınız için çomk teşekkür ederim.
Aradığım buydu. biraz geç oldu ama kusura bakmayın.
selamlar...