İlk üç satırı kopyala

[zahitsen]

arkadaşlar enj-2013 den ilk 3 satırı makro çalışınca direk 8053 sayfasına kopyalamak ıstiyorum yardımlarınızı bekliyorum....(acil.)

Set s1 = Sheets("ENJ-2013")
    Set s2 = Sheets("8053")
    satır = 4
    Application.ScreenUpdating = False
    For Each bul In s1.Range("F2:F" & s1.Range("F65536").End(3).Row)
    If bul.Value = 201306208 Then
    satır = satır + 1
    bul.EntireRow.Copy
    s2.Select
    Cells(satır, 1).PasteSpecial
    End If
    Next bul
    [A1].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

 

[Ömer]

Merhaba,

Sorunuz net değil.

Set s1 = Sheets("ENJ-2013")
Set s2 = Sheets("8053")
s1.Rows("1:3").Copy s2.Range("A1")

İstediğiniz bu mu?

Not: Başlığı bu seferlik konuyu anladığım kadarıyla ben değiştirdim. Konu başlıklarınızı sorunun içeriğini ifade edecek şekilde belirlemenizi rica ederim.

 

[zahitsen]

s1.Rows("1:3").Copy s2.Range("A1")

bu kodu ekledim istediğim buydu teşekkürler bir sorum daha olacaktı makro çalıştıktan sonra boş kalan hücrenin sutunun silinmesi lazım yani hücre boşsa gereksiz yer kaplamasın kopyalama yaptıktan sonra mesela b2 hücresi 3 satırdan sonra boşsa direk o sutunu silsin kod bunu da ilave edersek çok güzel olacak.

 

[Ömer]

Amaç, sütundaki verileri arada boş sütun olmadan birbirine yaklaştırmak mı?

 

[zahitsen]

Amaç, sütundaki verileri arada boş sütun olmadan birbirine yaklaştırmak mı?

For sat = 4 To 10
    For i = 2 To 15
    If Cells(sat, i) = "" Then
    Column(i).Delete
    End If
    Next
    Next
    End Sub

yani ilk üç satırdan sonra boş kalan hücre varsa sutunlarını silmek tamamen ben bi kod yazdım ama yanlışlık var yardım ederseniz bu kodud a eklicem makroma

 

[zahitsen]

isterseniz dosyayı gönderebilirim anlatamadıysam.

 

[Ömer]

For i = 2 To 15

Yerine,

For i = 15 To 2 Step -1

olarak deneyin. Olmaz ise, dosya ekleyerek açıklamanızı rica ederim.

.

 

[zahitsen]

For i = 2 To 15

Yerine,

For i = 15 To 2 Step -1

olarak deneyin. Olmaz ise, dosya ekleyerek açıklamanızı rica ederim.

.

dosya ekte beceremedim.

 

[zahitsen]

For i = 2 To 15

Yerine,

For i = 15 To 2 Step -1

olarak deneyin. Olmaz ise, dosya ekleyerek açıklamanızı rica ederim.

.

Yardıminizi bekliyorum

 

[Necdet]

Merhaba,

Dosya eklemişsiniz ama ne yapmak istiyorsunuz onu da söyleyin bari.

Dolu dolu hücreler var silinmesi gereken var mı varsa şartı nedir?

 

[asi_kral]

Yardıminizi bekliyorum

Merhaba
Biraz daha net açıklama yapma imkanınız var mı_?

 

[zahitsen]

Merhaba
Biraz daha net açıklama yapma imkanınız var mı_?

dosyaya yazdım ama açıklayıcı olmadı galiba şimdi şöyle siparişler dosyasından sadece ilk üç satırı alıyorum ve ürünün kendi koduyla yüklemeleri çektiriyorum boşta kalan yüklemeleri hücre boşsa silmesini boylece sadece ürüne ait yuklemelere ulaşmak istiyorum.yani 1001 sayfasında 4. satırda boş hücrelerin sutunu silinsin sadece 10001 ait yüklemelerin kalmasını isiyorum.

 

[asi_kral]

dosyaya yazdım ama açıklayıcı olmadı galiba şimdi şöyle siparişler dosyasından sadece ilk üç satırı alıyorum ve ürünün kendi koduyla yüklemeleri çektiriyorum boşta kalan yüklemeleri hücre boşsa silmesini boylece sadece ürüne ait yuklemelere ulaşmak istiyorum.yani 1001 sayfasında 4. satırda boş hücrelerin sutunu silinsin sadece 10001 ait yüklemelerin kalmasını isiyorum.

Merhaba
O sütunu sildiğinizde O sütuna başka kayıt nasıl yapacaksınız.
Örneğin Fransa sütunu boş orayı sildik bir sonraki kayıtta Fransa da veri var nasıl olacak o sütun olmadan. Karışmayacak mı_?