Bul değiştir hakkında bir soru

[KARTAL06]

"Aranan" kısmındaki değer başka sayfadaki bir hücreden alınabilirmi?

 

[HAKANYILDIZ]

Kopyala yapistirla olur

"Aranan" kısmındaki değer başka sayfadaki bir hücreden alınabilirmi?

Kopyala yapistir yaparak aranan degeri belirleyebilirsiniz.

 

[KARTAL06]

Teşekkürler özür dilerim soru eksik oldu sanırım

Bir makro oluşturmaya çalışıyorum Hücredeki değer devamlı değişiyor o nedenle makro çalışınca kopyala yapıştır yaptığımda değer devamlı aynı kalıyor. Benim yapmak istediğim o an hücrede ne varsa onu bulmak.

 

[Orion1]

Sayfa1deki a1 hücresindeki değeri alır.

Sheets("Sayfa1").range("A1").value

 

[Ayhan Ercan]

Bir makro oluşturmaya çalışıyorum Hücredeki değer devamlı değişiyor o nedenle makro çalışınca kopyala yapıştır yaptığımda değer devamlı aynı kalıyor. Benim yapmak istediğim o an hücrede ne varsa onu bulmak.

bunun için makroya gerek yok.

İster adres belirlersiniz;

=Sayfa2!D1

ister kopyala- (ba&#287yapıştır

makro kodu ile ise;

Sheets("Sayfa1").Range("A1").Value= Sheets("Sayfa2").Range("D1").Value

 

[KARTAL06]

Yapmaya çalıştığım şu

Sub Makro2()
Range("L6:AM6").Select
Sheets("ÖZET").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "5/23/2008"
Sheets("SİPARİŞ").Select
Selection.Find(What:="23.05.2008", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("V7").Select
Application.Goto Reference:="Makro2"
Windows("Kitap2.xls").Activate
End Sub

"Sipariş" adlı sayfada L6:AM6 aralığında "Özet" sayfasında D2 deki değeri bulup bir satır altına inip beklemek yukarıda V6 da buldu V7 ye inip durdu ama Özet D2 değişse bile hep "23.5.2008" buluyor. Bu nedenle bu soruyu sordum acaba Bul değiştirin ara kısmına değeri başka sayfadaki hücreden aldırabilirmiyim?

 

[Ayhan Ercan]

kodu (ilgi satırda) aşağıdaki gibi değiştirip denermisiniz..

Selection.Find(What:=[COLOR=red][B]Sheets("Özet").Range("d2").value[/B][/COLOR], After:=ActiveCell, LookIn:=xlFormulas......

birde kodda zaten sürekli olarak d2 hücresine "23.05.2008" yazdırıyorsunuz.
ActiveCell.FormulaR1C1 = "5/23/2008" = bu kod oldukca 23.05.2008 den kurtulamassın

 

[KARTAL06]

Hemen deniyorum

Misafirlerim geldi cevap gecikti kusura bakmayın. Ben makro kaydedici ile makro hazırlıyorum bazılarına biraz müdahale ediyorum yapamadıklarımada sizlerden yardım alıyorum. Yavaş yavaş vba ögrenmeye çalışıyorum. Nazik yardımlarınız için teşekkürler.

 

[KARTAL06]

Şimdi oldu

Sub Makro2()
Range("L6:AM6").Select
Sheets("ÖZET").Select
Range("D2").Select
Sheets("SİPARİŞ").Select
Selection.Find(What:=Sheets("Özet").Range("d2").Value, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Bir ek yapmam gerekiyor bulduğu hücrenin bir altına nasıl indirebilirim? Yani degeri V6 da bulduysa V7 ye insin.

 

[Ayhan Ercan]

Bir ek yapmam gerekiyor bulduğu hücrenin bir altına nasıl indirebilirim? Yani degeri V6 da bulduysa V7 ye insin.

???? altına inmek derken neyi kastediyorsunuz?

 

[KARTAL06]

değeri L6:AM6 aralığında arıyor ve buldu örneğin bu hücre V6 makro sonlanırken V7 ye gitsin sonlansın istiyorum. Yada değeri Y6 da buldu Y7 ye insin dursun.

 

[KARTAL06]

tamam kod bankasından buldum

ActiveCell.Offset(1, 0).Select 'Aktif hücrenin altıdakini seçer.