ta diye bi değişken atayıp A1 hücresini söyledim olmadı yardımcı olurmu sunuz, A1 de aratmak istediğim tarih
Sub de()
ta = Sheets("Ana Sayfa").Range("A1").Value
Cells.Find(What:=ta, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Bul ve git yardımcı olurmusnuz
-
- Mesajlar: 2
- Kayıt: Cum Tem 07, 2023 10:22 am
- Lokasyon: istanbul
- Meslek: Bilgi ve Belge Yöneticisi
- Adınız: asşkın şahin
- Soyadınız: aydemir
-
- Mesajlar: 2
- Kayıt: Cum Tem 07, 2023 10:22 am
- Lokasyon: istanbul
- Meslek: Bilgi ve Belge Yöneticisi
- Adınız: asşkın şahin
- Soyadınız: aydemir
Re: Bul ve git yardımcı olurmusnuz
Çözüldü teşekkür ederim.
Sub Makro1()
Sheets("Ana Sayfa").Select
Range("B5:AA9").Select
Selection.ClearContents
Sheets("Veri").Select
Sheets("Veri").Select
Range("A1").Select
ta = Sheets("Ana Sayfa").Range("A1")
Cells.Find(What:=ta, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Range("A1:Z5").Select
Selection.Copy
Sheets("Ana Sayfa").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub
Sub Makro1()
Sheets("Ana Sayfa").Select
Range("B5:AA9").Select
Selection.ClearContents
Sheets("Veri").Select
Sheets("Veri").Select
Range("A1").Select
ta = Sheets("Ana Sayfa").Range("A1")
Cells.Find(What:=ta, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Range("A1:Z5").Select
Selection.Copy
Sheets("Ana Sayfa").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 1 Cevaplar
- 1372 Görüntüleme
-
Son mesaj gönderen SNNAY