veri aktarma

[redje]

Merhabalar,

Örnekteki dosya farklı bir programla oluşuyor ben burdaki kart nolarını başka birsayfaya aktarmak istiyorum burda verilen çalışmaları inceledim ve uygulamaya çalıştım bir türlü olmadı hücrelerde birleştir uygulaması yapılmış olduğundan yada ben denk getiremedim
yardımcı olursanız sevinirim
iyi çalışmalar.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız.

Sub Aktar()
 
    Dim S1 As Worksheet, sAt As Long, i As Long
 
    Set S1 = Sheets("Sayfa1")
 
    Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
 
    Range("B4:B" & Rows.Count).ClearContents
 
    sAt = 4
    For i = 7 To S1.Cells(Rows.Count, "C").End(xlUp).Row
        With S1.Cells(i, "C")
            If .Value <> "" And IsNumeric(.Value) = True Then
                Cells(sAt, "B") = .Value
                sAt = sAt + 1
            End If
        End With
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[redje]

Yardımlarınız çok teşekkür ederim.

 

[redje]

merhabalar

veri aktarım işlemlerinde farklı farklı ver aktarım makrosu kullanıyorum
aşağıdaki makroyuda kullanıyorum fakat bana bu makronun aynısından a sütününda bilgi
var ise aktarım yapıyor benim için aynı makronun d sütununda bilgi var ise aktarım yapması
için nasıl bir ekleme yapmak kerekir

yardımlarınız için teşekkürler.


Sub Liste_Aktar()
ss = Sheets("201").[A65536].End(3).Row
S = [sayfa1!A500].End(3).Row
ss = 4
For i = 5 To S
ss = ss + 1
With Sheets("201")
.Cells(ss, 2).Value = ss - 5
.Cells(ss, 3).Value = Sheets("sayfa1").Cells(i, 1).Value
.Cells(ss, 4).Value = Sheets("sayfa1").Cells(i, 2).Value


End With
Next i
MsgBox "RAPORA AKTARIM BAŞARILI.", vbInformation, "Bilgi"

son:
If Err.Number <> 0 Then MsgBox "Aktarmada Hata Oluştu.", vbInformation, "Bilgi"
Set S1 = Nothing
Set s2 = Nothing
End Sub

 

[Ömer]

Sorunuzda bir çok açık nokta var. Sorularınızı detaylı açıklamaya özen gösterini.

S = [sayfa1!A500].End(3).Row


A yerine D yazınız.

.