Veri Aktarımı

[cinarbx]

Excel Tablosu

ekte bulunan dosyada Form sayfasının H5 değerine göre sayfadaki bağzı bilgiler değişmekte.

Veri gönder butonuna tıklanıldığında ise Form sayfasında boş kutucuklara girilen değerler Veri sayfasına aktarılıyor.

İstediğim şey Form sayfasındaki H5 hücresine daha önceden verisi yüklenmiş bir hafta numarası yazıldığında Veri sayfasından o verileri alsın form sayfasında yerlerine yazdırsın.

Yani Veri gönder butonuna tıklandığında Formden ---> Veri sayfasına veri atıyor . Olabiliyorsa yeni bir buton yardımıyla bu sefer Veriden ---> Form sayfasına hafta numarasına göre veri gelsin.

 

[AdemCan]

Veri sayfasından Form sayfasına kayıtları almak için kod.

Sub test_aktar()
Application.ScreenUpdating = False
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sayfa1: Set s2 = Sayfa2

aranan = s1.Range("H5")
Set s2r = s2.Range("A:A").Find(aranan)

If Not s2r Is Nothing Then
test_temizle
s2r = s2r.Row: s1s = 5: s1r = 9
    For s2s = 7 To 86
        s1.Cells(s1r, s1s) = s2.Cells(s2r, s2s)
        s1s = s1s + 1: say = say + 1
            If s1s > 8 And say = 4 Then
                s1r = s1r + 1
                    If s1.Cells(s1r, 2) = "ALT TOPLAM" Then
                        s1r = s1r + 2
                    End If
                s1s = 5: say = 0
            End If
    Next s2s
Application.ScreenUpdating = True
    MsgBox "Veri Sayfasından " & aranan & ". hafta aktarımı tamamlandı.", , ""
Else
    MsgBox "Veri sayfasında " & aranan & ". hafta bulunamadı.", , ""
End If
End Sub

Form sayfasındaki kayıtları temizlemek için kod.

Sub test_temizle()
Dim s1 As Worksheet
Set s1 = Sayfa1

For r = 9 To 33 Step 6
    s1.Range("E" & r & ":H" & r + 3).ClearContents
Next r
End Sub