bir sayinin oldugu satiri ve bir ustundeki satiri.....

[xaresx]

bir gurup sayidan diyelimki 9 lari sectiniz 9 larin oldu satiri ve ustundeki satiri otomatik sececek ve kopyaliyacak bir formul varmidir?

 

[turist]

Sayın xaresx
Forumumuza hoşgeldiniz.
Örnek dosyanızı; GOOGLE DRIVE,YANDEX DISK,DOSYA.TC, DOSYAUPLOAD.COM,WETRANSFER.COM gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz daha kolay ve doğru cevap bulabilirsiniz

 

[alicimri]

Aşağıdaki kod Sayfa1de, B1 B500 aralığındaki 9 yazan hücrelerin bulunduğu satırları ve bu satırların üstündeki satırları kopyalar.

Sub Makro2()
With Worksheets("Sayfa1").Range("b1:b500")
    Set C = .Find(9, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
        adres = adres & C.Row - 1 & ":" & C.Row & ","
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
Range(Left(adres, Len(adres) - 1)).Copy
End Sub