veri aktarma

[alprr]

öncelikle bütün veri aktarmalara baktım ama kendime göre kodları çeviremedim.
istediğim 1. sayfada "b" sütununda sayı! olanları 2. sayfada boş olan ilk satıra keserek yapıştırmasını istiyorum. bunun için bir tuş olacak.
2. tuş ise d sütununda fiyat yazanları yine aynı şekilde 2. sayfada boş olan ilk satıra yapıştırmasını istiyorum.
örnek dosya ektedir.
teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub sayi_aktar()
Dim sat1 As Long, sat2 As Long, i As Long, sh As Worksheet
Set sh = Sheets("sent")
Sheets("ARTICLES").Select
Application.ScreenUpdating = False
sh.Range("A2:AG65536").ClearContents
sat2 = 2
sat1 = Cells(65536, "B").End(xlUp).Row
[B][COLOR="Red"]For i = sat1 To 7 step -1[/COLOR][/B]
    If Cells(i, "B").Value <> "" And IsNumeric(Cells(i, "B").Value) Then
        sh.Range("A" & sat2 & ":AG" & sat2).Value = Range("A" & i & ":AG" & i).Value
        [B][COLOR="Red"]rows(i).delete xlup[/COLOR][/B]
        sat2 = sat2 + 1
    End If
Next i
Sheets("sent").Select
Application.ScreenUpdating = True
MsgBox "B sütunundaki sayılar aktarıldı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub
Sub fiyat_aktar()
Dim sat1 As Long, sat2 As Long, i As Long, sh As Worksheet
Set sh = Sheets("sent")
Sheets("ARTICLES").Select
Application.ScreenUpdating = False
sh.Range("A2:AG65536").ClearContents
sat2 = 2
sat1 = Cells(65536, "B").End(xlUp).Row
For i = 7 To sat1
    If UCase(Replace(Replace(Cells(i, "D").Value, "ı", "I"), "i", "İ")) = "FİYAT" Then
        sh.Range("A" & sat2 & ":AG" & sat2).Value = Range("A" & i & ":AG" & i).Value
        Range("A" & i & ":AG" & i).ClearContents
        sat2 = sat2 + 1
    End If
Next i
Sheets("sent").Select
Application.ScreenUpdating = True
MsgBox "D sütunundaki fiyat aktarıldı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[alprr]

TEŞEKKÜR EDERİM HIZLI CEVABINIZ İÇİN.


Range("A" & i & ":AG" & i).ClearContents

yerine o satırı nasıl silerim?

Rows("i:i").Select
Selection.Delete Shift:=xlUp

denedim ama çalışmıyor.

 

[Orion1]

TEŞEKKÜR EDERİM HIZLI CEVABINIZ İÇİN.


Range("A" & i & ":AG" & i).ClearContents

yerine o satırı nasıl silerim?

Rows("i:i").Select
Selection.Delete Shift:=xlUp

denedim ama çalışmıyor.

Dosyanız ektedir.

Sub sayi_aktar()
Dim sat1 As Long, sat2 As Long, i As Long, sh As Worksheet
Set sh = Sheets("sent")
Sheets("ARTICLES").Select
Application.ScreenUpdating = False
sh.Range("A2:AG65536").ClearContents
sat2 = 2
sat1 = Cells(65536, "B").End(xlUp).Row
For i = sat1 To 7 Step -1
    If Cells(i, "B").Value <> "" And IsNumeric(Cells(i, "B").Value) Then
        sh.Range("A" & sat2 & ":AG" & sat2).Value = Range("A" & i & ":AG" & i).Value
        Range("A" & i & ":AG" & i).ClearContents
        Rows(i).Delete xlUp
        sat2 = sat2 + 1
    End If
Next i
Sheets("sent").Select
Application.ScreenUpdating = True
MsgBox "B sütunundaki sayılar aktarıldı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub
Sub fiyat_aktar()
Dim sat1 As Long, sat2 As Long, i As Long, sh As Worksheet
Set sh = Sheets("sent")
Sheets("ARTICLES").Select
Application.ScreenUpdating = False
sh.Range("A2:AG65536").ClearContents
sat2 = 2
sat1 = Cells(65536, "B").End(xlUp).Row
For i = sat1 To 7 Step -1
If UCase(Replace(Replace(Cells(i, "D").Value, "ı", "I"), "i", "İ")) = "FİYAT" Then
        sh.Range("A" & sat2 & ":AG" & sat2).Value = Range("A" & i & ":AG" & i).Value
        Rows(i).Delete
        sat2 = sat2 + 1
    End If
Next i
Sheets("sent").Select
Application.ScreenUpdating = True
MsgBox "D sütunundaki fiyat aktarıldı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[alprr]

Teşekkür ederim.
Bu verileri kapalı olan "sent" adındaki başka excel dosyasındaki "delıvered" sayfasındaki sıradaki boş satıra aktarabilirmiyim?

 

[murat23351]

Merhabalar , benimde sorunum var veri aktarımında yeni başlık açmadan sorumu sormak istiyorum.. bu ve buna benzeri veri aktarımı çeşitleri kullandım. Kullandığım makro

Sub deger_atama()

Range("d4").Value = Sheets("sayfa2").[j11]
End Sub

yani sayfa2 deki j11 e veri girdiğimde istediğim sayfanın istediğim hücresine yazdırmak ama bunu butona makro atayarak değil de veriyi j11 e girdiğimde otomatikmen yapması.. Yardımcı olursanız sevinirim.

 

[Orion1]

Teşekkür ederim.
Bu verileri kapalı olan "sent" adındaki başka excel dosyasındaki "delıvered" sayfasındaki sıradaki boş satıra aktarabilirmiyim?

Orada 2 tane prosedür var hangisini aktarmak istiyorsunuz.

 

[alprr]

1-burda ben tablo kullanıyorum ve en alt satırı bul dediğimde tablonun en alt satırına gidiyor. halbuki ben dolu olan satırlardan sonra sıradaki boş satırı istiyorum ama seçmiyor.
2-siz bunu aynı çalışma kitabındaki başka sayfaya aktarma olarak yapmışsınız.
başka excel kitabını nasıl seçebiliriz? diğer çalışma kitabı kapalı ikende aktarabilirmiyiz bu verileri?
bunları sayı aktar için soruyorum.

teşekkür ederim.