Dolu hücreleri kopyala

[YILDIZ YAĞMURU]

sayfa 1 , B sütununda b5:b155 arasındaki hücrelerde "dolu olanları kopyala" makrosu yazılabilirmi acaba ?
yardımcı olurmusunuz

 

[Ömer]

Merhaba,

Sub Kopyala()
    Range("B5:B155").SpecialCells(xlCellTypeConstants, 23).Copy Range("C1")
End Sub

İstediğiniz bu mu? Kopyalananları C1 den itibaren yapıştırır.

.

 

[YILDIZ YAĞMURU]

Merhaba,

Sub Kopyala()
    Range("B5:B155").SpecialCells(xlCellTypeConstants, 23).Copy Range("C1")
End Sub

İstediğiniz bu mu? Kopyalananları C1 den itibaren yapıştırır.

.

Ömer bey,

makro yapıştır yapmayacak ..sadece ("B5:B155") arasında ki hücrelerde dolu olanları kopyalama yapacak .. örnek : b5,b6,b7....b25 arasındaki hücreler dolu bu hücreleri kopyalayacak ilginiz için teşekkürler..

 

[Ömer]

C1 bölümünü silmeniz yeterli olur.

Sub Kopyala()
    On Error Resume Next
    Range("B5:B155").SpecialCells(xlCellTypeConstants, 23).Copy
End Sub

.

 

[YILDIZ YAĞMURU]

çok teşekkürler

C1 bölümünü silmeniz yeterli olur.

Sub Kopyala()
    On Error Resume Next
    Range("B5:B155").SpecialCells(xlCellTypeConstants, 23).Copy
End Sub

.

çok tesekkurler Ömer bey...

 

[ALBAYRAK_90]

merhabalar benim bir sorum var bir türlü excelde yapamadım 3 sütun 7 satırdan oluşan bir hücrem var onu ben diğer sayfadaki bir hücreye aktarmak istiyorum örn. sayfa1 de 123 yazıyorsa sayfa2 de de 123 yazmasını istıyorum bir türlü yapamadım yardımcı olurdanız sevinirim.

 

[y.selim]

merhabalar
forumda sorum ile ilgili bu makroyu buldum .fakat bir düzenleme yapılması gerekli.
buradaki makro, formülsüz olarak yazılan dolu değerleri buluyor.bunun formüllü olanını yapabilir miyiz? yani, B sütununda formüller olsa ve bazı hücreler herhangi bir değer çıkarken, bazıları formül sonucu olarak boş gözükse ve makro sadece bu dolu olanları kopyalasa çok işime yarar.
şimdiden teşekkürler.

 

[y.selim]

konuyla ilgilenebilecek biri var mı?

 

[y.selim]

konu günceldir yardımcı olacak biri aranmaktadır.
makro, formül sonucu dolu olan hücreleri (ya da formül sonucu 0 dan büyük çıkan hücreleri de olabilir) kopyalayacaktır.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub DOLU_HUCRELERI_KOPYALA()
    Dim Veri As Range, Alan As Range
    
    For Each Veri In Range("A1:A1000")
        If Veri.Value <> "" Then
            If Alan Is Nothing Then
                Set Alan = Veri
            Else
                Set Alan = Application.Union(Alan, Veri)
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then Alan.Copy
End Sub

 

[y.selim]

aynen budur Korhan Hocam,elinize sağlık, şükranlarımı sunuyorum.

 

[Eyupcan Tasar]

merhabalar benim bir sorum var bir türlü excelde yapamadım 3 sütun 7 satırdan oluşan bir hücrem var onu ben diğer sayfadaki bir hücreye aktarmak istiyorum örn. sayfa1 de 123 yazıyorsa sayfa2 de de 123 yazmasını istıyorum bir türlü yapamadım yardımcı olurdanız sevinirim.

Merhaba;

3 sütun ve 7 satırdan oluşan bir hücrem var demişsiniz. Anladığım kadarıyla hücre birleştirme yapmışsınız. Eğer dediğim gibi ise;

Sayfa 2'de hangi hücrenin içine yazılmasını istiyorsanız o hücreyi seçin önce. = yazın ve sayfa 1'deki içinde 123 yazan hücreye tıklayıp enter'a basın.

 

[ERMAN SAYINALP]

Üstadım, yukarıdaki kodlamanızı kullanmak istedim, tam da benim istediğim bir soruna çare olacaktı ancak hata alıyorum.

Kodlamanın son satırı olan "If Not Alan Is Nothing Then Alan.Copy" daki Alan.Copy sarı renge boyanıyor.

 

[MAYKMAYKMAYK]

coklu secimlerde kullanılamaz sorunu

Aşağıdaki kodu deneyiniz.

Sub DOLU_HUCRELERI_KOPYALA()
    Dim Veri As Range, Alan As Range
    
    For Each Veri In Range("A1:A1000")
        If Veri.Value <> "" Then
            If Alan Is Nothing Then
                Set Alan = Veri
            Else
                Set Alan = Application.Union(Alan, Veri)
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then Alan.Copy
End Sub

calışma sayfamda 8 adet sayfa var hepsinin a1:a1000 kopyalamaya calışıyor calışma kitabımın adı skordeneme sayfamın adı skorveri yani skor verideki a1:a1000 hücrelerinin dolu olanlarını yine skorveri sayfasına c1 kopyalıyacak yardımlarınızı bekliyorum

 

[fenci2737]

Üstadım, yukarıdaki kodlamanızı kullanmak istedim, tam da benim istediğim bir soruna çare olacaktı ancak hata alıyorum.

Kodlamanın son satırı olan "If Not Alan Is Nothing Then Alan.Copy" daki Alan.Copy sarı renge boyanıyor.

Merhaba; ben de aynı hatayı alıyorum çözüm buldunuz mu

 

[fenci2737]

yardımcı olabilir misiniz.