veri çağırma

[sametumur]

arkadaşlar merhaba,

"kaynak" isimli sayfada bulunan listede S.No.lara karşılık gelen "adı ve soyadı" sütunu ile " ilgili metin" isimli sütunları, "format" isimli sayfada bulunan yine aynı sıra numaralarına karşılık gelen hücrelere yazdırmak istiyorum.

bununla ilgili formül veya kod yazılabilir mi?

 

[askm]

Aşağıdaki kodları deneyin.

Sub ASKM_Veri_Aktar()
Dim s1, s2 As Worksheet
Set s1 = Sheets("kaynak")
Set s2 = Sheets("format")
Dim SonSat As Long
SonSat = s2.Range("A" & Rows.Count).End(xlUp).Row
x = 2
For i = 2 To SonSat Step 4
    s2.Cells(i, "B") = s1.Cells(x, "B")
    s2.Cells(i, "C") = s1.Cells(x, "C")
    x = x + 1
Next
MsgBox "İşlem Tamam", vbInformation, "ASKM"
End Sub

 

[sametumur]

kodlar işliyor ancak;

toplam 10 satır var örnekte ve 1,2,3 ve 6'ncı sıra numaralı satırlar için oluyor ama diğerlerinin değerleri boş.

4, 5, 7, 8, 9 ve 10'uncu satırlara herhangi bir değer gelmiyor.

 

[askm]

Sub ASKM_Veri_Aktar()
Dim s1, s2 As Worksheet
Set s1 = Sheets("kaynak")
Set s2 = Sheets("format")
Dim SonSat As Long
SonSat = s2.Range("A" & Rows.Count).End(xlUp).Row
x = 2
For i = 2 To SonSat
If s2.Cells(i, "A") <> Empty Then
    s2.Cells(i, "B") = s1.Cells(x, "B")
    s2.Cells(i, "C") = s1.Cells(x, "C")
    x = x + 1
End If
Next
MsgBox "İşlem Tamam", vbInformation, "ASKM"
End Sub

 

[sametumur]

elinize sağlık teşekkür ederim.

 

[askm]

Rica ederim. İyi günler.