Satır Atlatma

[valid20]

Merhabalar,
Ben şöyle bir sorunum var.

Kitap 1
A1=Ali
A2=Kazım
A3=Mustafa

Buradaki bilgileri çekip şöyle yazdırmak istiyorum

Kitap2
A1=Ali
3 Satır Boş bırakıyoruz
A5=Kazım
3 Satır Boş bırakıyoruz
A9=Mustafa

Bu boş satırları nasıl bırakabilirim...

Teşekkür ederim.

 

[Murat OSMA]

Bu örnek kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, sat%
    sat = 1
    For i = 1 To Range("A65536").End(3).Row
        Cells(sat, "B") = Cells(i, "A")
        sat = sat + 4
    Next i
    sat = Empty: i = Empty
End Sub[/FONT]

 

[valid20]

Merhabalar,
Maalesef çalıştıramadım excel 2010 kullanıyorum ve maalesef makrolar hakkında bir bilgim yok ama internette araştırıp denediğim kadarıyla çalıştıramadım. Makroyu kaydediyorum ve çalıştır diyorum ama maalesef döngüye giriyor ve kitleniyorum.

 

[Mahir64]

Merhaba,

Boş satırlarda işlem yapılacak mı yoksa sadece boşmu görünecek..

--

 

[valid20]

Yok boş kalacak ben oraları elimle dolduracağım.

 

[Murat OSMA]

Excel sayfasındayken ALT + F11 tuşlarına basın.
Üst menülerden önce Insert ardından Module seçin.
Verdiğim kodları yapıştırın.
F5'e basın.

 

[Mahir64]

Yok boş kalacak ben oraları elimle dolduracağım.

O zaman Murat Bey'in çözümünü kullanacaksınız.

--

 

[valid20]

Teşekkür ederim oldu ama şöyle bir durum var
Kitap1 A sütunundaki bilgileri
Kitap2 B sütunundaki bilgilere taşımak istiyorum.

 

[Murat OSMA]

Kitap1 A sütunundaki verileri Kitap2 A sütununa kopyalayin ve kodlari bu dosyada deneyin.

 

[valid20]

Dediğinizi anladım ama ben Kitap1 deki verileri farklı sayfalardan okutturuyorum o nedenle Kitap1 deki veriler sürekli değişken doğal olarak diğer sayfalardaki verilerde buna bağlı değişiyor.
Buradaki Cells(sat, "B") yerine
Cells(sat, "Kitap1B") mi yazmam gerek bunu bilemedim....

 

[Murat OSMA]

Dosyalarınızı yollayın istediğiniz şekilde ayarlayıp gönderelim.