Sütunda veri bulma

[muhalko]

Sayın üstadlar;

ekli dosyada da görüleceğigibi pilot yazan satırın bir üstünden 65000. Satıra kadar ve a, b, c, d sütünlarını kopyalayarak sayfa 2 ye a1 hücresinden yapıştıracak bir kod lazım.
Pilot yazan satır değişebilmektedir. Bu nedenle önce pilot yazan satırı bulmak gerekecek.

Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Emir Hüseyin Çoban]

PİLOT YAZAN SATIRIN BİR ÜSTÜNDEN 65000. SATIRA KADAR

. . .

Bir satır üstünden kısmını anlamadım.
Pilot 17.satırda

18:65000 arasımı ?
1:16 arasımı kopyalanacak.

. .

 

[muhalko]

Sayın üstadım;

16-65000 arasını kopyalayacak

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
On Error Resume Next
veri = InputBox(Prompt:="", Title:="", Default:="PİLOT")
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:C65536").Clear
For i = 2 To [C65536].End(3).Row
If Cells(i, "C") = veri Then
i = i - 1
Range("A" & i & ":C65000").Copy Sheets("Sayfa2").Range("A1")
Exit Sub
Else: End If
Next i
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[muhalko]

SAYIN ÜSTADIM;

ELLERİNİZE SAĞLIK. ÇOK TEŞEKKÜR EDERİM.

ANCAK ARAMAK İSTEDİĞİM VERİ SABİT OLACAK YANİ DEĞİŞMEYECEĞİ İÇİN, InputBox A GEREK YOK. ARAYACAĞIM VERİ SADECE "PİLOT" OLACAK. BU KONUDA DA YARDIMCI OLURSANIZ ÇOK MEMNUN OLURUM

 

[Emir Hüseyin Çoban]

. . .

Deneme yanılma yöntemiyle yapabilirdiniz.

veri = "PİLOT"

olarak değiştirin.

. . .