Belli aralıktaki sıralı hücreleri aktar

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Belli aralıktaki sıralı hücreleri aktar

İleti#1)  Gold_Savt » 30 Oca 2020 12:53

Merhaba Arkadaşlar;
(Sadece excel verisi olarak) indirdiğim excel çalışma sayfasından, Sheet1'den Sheet2 ye dolu hücreleri aktarmak istiyorum.
Süz aktar işe yaramıyor, çünkü istenilen bilgilier "ritmik" aralıklarla verilmiş.
Örnek çalışma sayfası ilişiktedir.
Çözüm mümkün mü acaba?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Gold_Savt
Yeni Başlamış
 
Adı Soyadı:Yusuf ERGENÇ
Kayıt: 12 Mar 2010 15:07
Yaş: 40
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon-Gümüşhane

Cevap: Belli aralıktaki sıralı hücreleri aktar

İleti#2)  OmerFaruk72 » 30 Oca 2020 13:50

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim k, i As Integer
    Set sh = Worksheets("Sheet1")
    k = 5
    For i = 1 To 31 Step 3
        k = k + 1
        Cells(k, 2) = sh.Cells(i, 1)
        Cells(k, 3) = sh.Cells(i, 2)
        Cells(k, 4) = sh.Cells(i + 1, 4)
        Cells(k, 5) = sh.Cells(i, 9)
        Cells(k, 6) = sh.Cells(i + 1, 9)
        Cells(k, 7) = sh.Cells(i, 12)
    Next i
End Sub
Kullanıcı avatarı
OmerFaruk72
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 47
İleti: 82
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Belli aralıktaki sıralı hücreleri aktar

İleti#3)  Gold_Savt » 30 Oca 2020 15:16

Bir gündür uğraşıyorum. Siz iki satır yazıyorsunuz... Hop, mucize oluyor. Öğrenmem lazım benim bu kodları.
Eliniz, emeğiniz dert görmesin hocam.
Kullanıcı avatarı
Gold_Savt
Yeni Başlamış
 
Adı Soyadı:Yusuf ERGENÇ
Kayıt: 12 Mar 2010 15:07
Yaş: 40
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon-Gümüşhane

Cevap: Belli aralıktaki sıralı hücreleri aktar

İleti#4)  Gold_Savt » 06 Şub 2020 11:26

aktarım yaparken hücre değeri "0" olanları aktarmaması için aşağıdaki koda nasıl bir ekleme yapmamız lazım.
Aktarım başarılı şekilde gerçekleşiyor ancak "sıfır" rakamını aktardığı zaman işler bozuluyor malesef.
Uzman eli değmesi lazım sanırım.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim k, i As Integer
    Set sh = Worksheets("Sheet1")
    k = 5
    For i = 1 To 31 Step 3
        k = k + 1
        Cells(k, 2) = sh.Cells(i, 1)
        Cells(k, 3) = sh.Cells(i, 2)
        Cells(k, 4) = sh.Cells(i + 1, 4)
        Cells(k, 5) = sh.Cells(i, 9)
        Cells(k, 6) = sh.Cells(i + 1, 9)
        Cells(k, 7) = sh.Cells(i, 12)
    Next i
End Sub
Kullanıcı avatarı
Gold_Savt
Yeni Başlamış
 
Adı Soyadı:Yusuf ERGENÇ
Kayıt: 12 Mar 2010 15:07
Yaş: 40
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon-Gümüşhane

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Belli aralıktaki sıralı hücreleri aktar

İleti#5)  Miraç CAN » 07 Şub 2020 09:58

İlgili satırların başına If Not Cells(k, 1) Like 0 Then ekleyin.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 241
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Belli aralıktaki sıralı hücreleri aktar

İleti#6)  drykcktl » 11 Şub 2020 16:50

merhabalar yukarıdaki kodu bir excel dosyasındaki farklı sayfaları aktar olarak nasıl uyarlayabilirim?
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 38
İleti: 46
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Belli aralıktaki sıralı hücreleri aktar

İleti#7)  Miraç CAN » 12 Şub 2020 08:26

drykcktl yazdı:merhabalar yukarıdaki kodu bir excel dosyasındaki farklı sayfaları aktar olarak nasıl uyarlayabilirim?

İlgili yerlerin başına sayfa isimlerini ya da index'lerini yazarak yapabilirsiniz.
Örnekte yer aldığı gibi, aktif yani bulunduğunuz sayfanın ismini belirtmenize gerek yoktur, belirtseniz de bir şey olmaz, fazlalık, boşuna kalabalık yapar sadece.
Set sh = Worksheets("Sheet1") sh değişkenine sayfa atar,
sh.Cells(1, 1)=Cells(1, 2) sh sayfası (Sheet1 isimli sayfa) A1 hücresine (Cells(1, 1)) Aktif sayfa B1 hücresinde ki veriyi gönderir
Cells(1, 1)=sh.Cells(1, 2) aktif sayfa A1 hücresine sh sayfası (Sheet1 isimli sayfa)B1 hücresinde ki veriyi gönderir
Worksheets("Sheet2").Cells(1, 1)=Worksheets("Sheet1").Cells(1, 2) Sheet2 isimli sayfanın A1 hücresine Sheet1 isimli sayfanın B1 hücresinde ki veriyi gönderir.

sh.Range("A1") , Worksheets("Sheet1").Range("A1"), sh.Cells(1, 1) ve Worksheets("Sheet1").Cells(1, 1)aynı şeyi ifade eder, kullanım kolaylığına uygun olarak tercih edilir.
Ya da Cells(1, 1) ve Range("A1") gibi.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 241
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Cevap: Belli aralıktaki sıralı hücreleri aktar

İleti#8)  drykcktl » 12 Şub 2020 12:01

Miraç CAN yazdı:
drykcktl yazdı:merhabalar yukarıdaki kodu bir excel dosyasındaki farklı sayfaları aktar olarak nasıl uyarlayabilirim?

İlgili yerlerin başına sayfa isimlerini ya da index'lerini yazarak yapabilirsiniz.
Örnekte yer aldığı gibi, aktif yani bulunduğunuz sayfanın ismini belirtmenize gerek yoktur, belirtseniz de bir şey olmaz, fazlalık, boşuna kalabalık yapar sadece.
Set sh = Worksheets("Sheet1") sh değişkenine sayfa atar,
sh.Cells(1, 1)=Cells(1, 2) sh sayfası (Sheet1 isimli sayfa) A1 hücresine (Cells(1, 1)) Aktif sayfa B1 hücresinde ki veriyi gönderir
Cells(1, 1)=sh.Cells(1, 2) aktif sayfa A1 hücresine sh sayfası (Sheet1 isimli sayfa)B1 hücresinde ki veriyi gönderir
Worksheets("Sheet2").Cells(1, 1)=Worksheets("Sheet1").Cells(1, 2) Sheet2 isimli sayfanın A1 hücresine Sheet1 isimli sayfanın B1 hücresinde ki veriyi gönderir.

sh.Range("A1") , Worksheets("Sheet1").Range("A1"), sh.Cells(1, 1) ve Worksheets("Sheet1").Cells(1, 1)aynı şeyi ifade eder, kullanım kolaylığına uygun olarak tercih edilir.
Ya da Cells(1, 1) ve Range("A1") gibi.




çok tesekkür ederim Miraç Bey aşagıdaki linkte açtığım bir konum var kodu butona ekleyemedim orada da boş satırları aktarmayacak şekilde bu kodu uyarlayabilirmiyiz

viewtopic.php?f=4&t=34850
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 38
İleti: 46
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli




Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe