Bir satırı kopyalayıp şarta uyan diğerlerine yapıştırma

[Mesafe]

Başlıklarını düzenleyeceğim bir satırı butona bastıktan sonra kopyalayıp aşağıda A sütununda TARİH yazan tüm satırlara yapıştırmasını sağlayacak bir makro yazılabilir mi ?

 

[Murat OSMA]

Deneyiniz;

[SIZE="2"]Sub Emre()
    Dim i As Byte
    For i = 7 To 35
        If Cells(i, 1) = "TARİH" Then
            Rows(7).Copy Cells(i, 1)
        End If
    Next i: i = Empty
End Sub[/SIZE]

 

[Mesafe]

Sayın Osma,
Çok teşekkür ederim. Tam istediğim gibi olmuş elinize sağlık.
Ancak ben bunu daha uzun olan dosyamda kullanabilmek için
For i = 7 To 35 kısmındaki 35 i mesela 350 yaptığımda overflow hatası veriyor 200 - 250 ye kadar çalışıyor ama onun üzerindeki rakamlarda hata veriyor.

 

[Murat OSMA]

Rica ederim...

Sayısal olan Byte değişken tipinin veri aralığı o kadardır. (0 - 255)
Byte yerine İnteger yapabilirsiniz..

 

[Mesafe]

Evet oldu, bu sayede Byte ve integer farkınıda öğrenmiş oldum. Tekrar teşekkürler.

 

[Murat OSMA]

Şu bağlantılara da bir göz atabilirsiniz;

http://www.excel.web.tr/f127/de-ken-tanimlama-t38176.html

http://www.excel.web.tr/f60/de-kenler-variables-t4299.html