- Katılım
- 17 Nisan 2013
- Mesajlar
- 101
- Excel Vers. ve Dili
- 2007 Microsoft Office Türkçe
sayfa 1 , B sütununda b5:b155 arasındaki hücrelerde "dolu olanları kopyala" makrosu yazılabilirmi acaba ?
yardımcı olurmusunuz
yardımcı olurmusunuz
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ömer bey,Merhaba,
İstediğiniz bu mu? Kopyalananları C1 den itibaren yapıştırır.Kod:Sub Kopyala() Range("B5:B155").SpecialCells(xlCellTypeConstants, 23).Copy Range("C1") End Sub
.
çok tesekkurler Ömer bey...C1 bölümünü silmeniz yeterli olur.
.Kod:Sub Kopyala() On Error Resume Next Range("B5:B155").SpecialCells(xlCellTypeConstants, 23).Copy End Sub
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
Merhaba;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.
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ı bekliyorumAşağıdaki kodu deneyiniz.
Kod: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
Merhaba; ben de aynı hatayı alıyorum çözüm buldunuz muÜ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.