Formül ile oluşturulmuş metni bulma.

[muratnazli]

Selamlar

TOPLAM ve MAMUL iki ayrı hücrelerde iken başka bir hücrede ="TOPLAM"& "MAMUL" formülü ile birleştirilmiştir. Aşağıdaki kod ile arama yaptığımda TOPLAM MAMUL yazılı hücreyi bulamıyorum.

Yardımcı olursanız sevinirim.

Teşekkürler.


Cells.Find(What:="TOPLAM MAMUL", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns).Activate

 

[Mahmut Bayram]

syn muratnazli, ="TOPLAM"&" MAMUL" şeklinde olmalı herhalde formül yani & işaretinden sonra boşluk değilde " işaretinden sonra boşluk koyarak deneyiniz.

 

[muratnazli]

Selamlar,

Sanıyorum soruyu yanlış sordum. Düzeltiyorum.

A1 hücresinde TOPLAM B1 hücreside MAMUL yazılı iken C1 hücresinde=A1&B1 formülü ile birleştirilmiş TOPLAM MAMUL oluşturulmuştur. Aşağıdaki kod ile arama yaptığımda TOPLAM MAMUL yazılı hücreyi bulamıyorum.

Cells.Find(What:="TOPLAM MAMUL", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns).Activate

 

[Mahmut Bayram]

SYN muratnazli, C1 hücresindeki formülü şu şekilde değiştiriniz.
=A1&" "&B1

 

[muratnazli]

Sayın mahmut bayram,

C1 hücresinin sonucu TOPLAM MAMUL ben bu sonuca göre Ctrl+F yada
Cells.Find(What:="TOPLAM MAMUL", After:=ActiveCell, LookIn:=xlValues, LookAt:= xlPart, SearchOrder:=xlByColumns).Activate
kodu ile aratma yaptığımda bulmak istiyorum.

Formülü
Cells.Find(What=A1&" "&B1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns).Activate
şeklinde düzelttiğimde bulabiliyorum.

İlginize teşekkür ederim.

 

[Mahmut Bayram]

syn muratnazli, şu şekilde değiştirdim kodunuzu büyük ihtimalle sorununuz çözüme kavuşacaktır.

Cells.Find(What:="A1&"" ""&B1", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

KOLAY GELSİN

 

[muratnazli]

Sayın mahmutbayram,

Sizin yazdığınız şekilde find fonksiyonunda What kısmına formülü yazdığımda istenilen hücreye geliyor. Fakat Formül değiştiğinde farklı hücrelerin üzerine gitmemesi için ben find fonksiyonunun What kısmına "TOPLAM MAMUL" yazarak
aratmanın mümkün olup olmadığını öğrenmek istiyorum.

Teşekkürler

 

[Mahmut Bayram]

O zaman formül değil de değerl olarak aratmanız ve kodu ona göre oluşturmak lazım ki o da şöyle
Cells.Find(What:="TOPLAM MAMUL", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

 

[muratnazli]

Sayın mahmutbayram,

Þimdi oldu çok teşekkür ederim.

 

[muratnazli]

Satım mahutbayram,

Göndermiş olduğunuz aşağıdaki formül çok işime yaradı. Fakat "01-MAMUL TOPLAM" ve "MAMUL TOPLAM" metinler aynı sayfada geçiyor. "MAMUL TOPLAM" olarak arama yaptığımda "01-MAMUL TOPLAM" içerisinde "MAMUL TOPLAM" geçtiği için 01-MAMUL TOPLAM" hücresinide bulabiliyor. Sadece "MAMUL TOPLAM" yazan hücreyi bulmanın bir yolu varmıdır.

Yardımcı olursanız sevinirim.


Cells.Find(What:="01-MAMUL TOPLAM", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

 

[Mahmut Bayram]

peki bu "01-MAMUL TOPLAM" ifadesi formül mü yoksa sadece metin mi

 

[Mahmut Bayram]

ekteki dosyayı bir incele istersen. işini görmezse senin dosyanüzerinden gideriz. Ama şu an kapatıyorum. Cuma'dan sonra görüşürüz. Daha kahvaltı bile yapmadım.(Kola dışında)

 

[HIDROKINON]

('Konu dışı :"Mide ülserlerine yedikleriniz neden olmaz. Ülserler sizi yiyenlerden oluşur."
DR. JOSEPH MONTAGUE)

Daha kahvaltı bile yapmadım.(Kola dışında)
Hocam dikkat edin belki içtikleriniz yapar..!

 

[muratnazli]

Sayın mahmutbayram,

Dosyayı kısaltarak koyuyorum. Kodu incelerseniz sevinirim. Find fonksiyonu ile
Sum formulündeki satır aralıklarının başlangıç ve bitişini bulduruyorum. Fakat yukarıdada bahsettiğim gibi Find fonksiyonunun Whaat kısmına "01-STANDART MAMUL"de yazsam "01-STANDART MAMUL TOPLAM" da yazsam aynı hücreyi bulduğu için Excel sayfasına yazdığı formül circular oluyor.

Teşekkürler.

 

[Mahmut Bayram]

Cells.Find(What:="01-STANDART MAMUL", After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
kodunu deniyiniz... :arkadas:

 

[muratnazli]

Sayın mahmutbayram,

Koda baktıysanız ben find fonksiyonu ile sum formülünde kullanmak üzere satırın başlangıcını bulduruyorum. FindNext ile nasıl olmuyor. Find haricinde "01-STANDART MAMUL ve "01-STANDART MAMUL TOPLAM" hücrelerinin kaçımcı satırda olduğunu bulmanın bir yolu varmıdır.

Teşekkürler.

 

[muratnazli]

Sayın mahmutbayram,

Koda baktıysanız ben find fonksiyonu ile sum formülünde kullanmak üzere satırın başlangıcını bulduruyorum. FindNext ile nasıl olmuyor. Find haricinde "01-STANDART MAMUL ve "01-STANDART MAMUL TOPLAM" hücrelerinin kaçımcı satırda olduğunu bulmanın bir yolu varmıdır.

Teşekkürler.

 

[muratnazli]

Sayın mahmutbayram

Dosyayı incelediyseniz find fonksiyonu ile sum formülündeki başlangıç ve bitiş satırlarını bulduruyorum. Gönderdiğiniz findnext kodu ile bunu yapamadım. iscilik_dagilimi sayfasından formül ile stok hareketi sayfasına formül ile aktarılmış
01-STANDART MAMUL ve 01-STANDART MAMUL TOPLAM yazılı hücrelerin satır numaralarını başkabir yol ile bulabilirmiyim.

Yardımcı olursanız sevinirim.

Teşekkürler.

 

[veyselemre]

[vb:1:a874126c2c]Sub bul()

Set S2 = Workbooks("05_02_rapor_calismalari").Sheets("stok_hareketi")
S2.Activate

For x = 1 To S2.[b65536].End(3).Row
If S2.Cells(x, 2) = "01-STANDART MAMUL" Then sat1 = x
If S2.Cells(x, 2) = "01-STANDART MAMUL TOPLAM" Then sat2 = x
Next

For i = 5 To 10
adr = Range(Cells(sat1 + 1, i), Cells(sat2 - 1, i)).Address
S2.Cells(x - 1, i).Formula = "=SUM(" & adr & ")"
Next

End Sub
[/vb:1:a874126c2c]