Find komutu

[Musabilennn]

Merhabalar,

find komutu ile ilgili sorum olacak şöyle ki ;
Cells.Find(What:="320 002 044", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

"320 002 044" arana değer manuel yazılması yerine aktif kopyaladığım veriyi aratmak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Cells.Find(What:=Activecell, After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

 

[Necdet]

Merhaba,
Activecell.Value kullanmanız yeterli olur mu?

 

[Necdet]

Aynı şeyi düşünmüşüz ama geç kalmışım.

 

[Musabilennn]

Sub Aktar()
'
' Aktar Makro
'
' Klavye Kısayolu: Ctrl+x
'
Selection.Copy
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
aranan = xlPasteValues
Cells.Find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveCell.Offset(0, 2).Select ' Sağa kaydırmak için
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveCell.Offset(0, 3).Select ' Sağa kaydırmak için
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


malesef işimi görmedi, yapmak istediğim kısaca şudur aktif hücreyi kopyala diğer sayfada bul kopyalanan değerinin yanındaki hücreyi bulunan sayfadaki hücreninin 3 hücre yanına dğerleri ile yapıştır. umarım anlatabilmişimdir.

 

[bmutlu966]

"aktif hücreyi kopyala diğer sayfada bul kopyalanan değerinin yanındaki hücreyi bulunan sayfadaki hücreninin 3 hücre yanına dğerleri ile yapıştır. umarım anlatabilmişimdir."

Bu cümlenizi doğru anladıysam aşağıdaki kodu deneyebilirsiniz. Diğer sayfa kastınız hangi sayfa ise kodda değişiklik yaparsınız. Diğer sayfanın A1:Z1000 hücrelerinde arama yapar. Kendinize göre düzenlersiniz.

Sub bul_yapistir()

Set s = Sheet2 'diger sayfa

c = ActiveCell.Value
cy = ActiveCell.Offset(0, 1).Value

For Each i In s.Range("A1:Z1000")
    If i.Value = c Then
    y = i.Address
    s.Range(y).Offset(0, 3) = cy
    Exit For
    End If
Next

End Sub

 

[Musabilennn]

sayfa değişkenlik gösterdiğin için sayfa tanımlaması yapamıyorum ama her zaman aktif sayfadan iki önceki sayfa oluyor