• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Formül ile oluşturulmuş metni bulma.

M

muratnazli

Katılım
23 Eylül 2004
Mesajlar
91
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
 
syn muratnazli, ="TOPLAM"&" MAMUL" şeklinde olmalı herhalde formül yani & işaretinden sonra boşluk değilde " işaretinden sonra boşluk koyarak deneyiniz.
 
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
 
SYN muratnazli, C1 hücresindeki formülü şu şekilde değiştiriniz.
=A1&" "&B1
 
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.
 
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
 
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
 
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
 
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
 
peki bu "01-MAMUL TOPLAM" ifadesi formül mü yoksa sadece metin mi
 
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)
 
('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..!
 
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.
 
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:
 
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.
 
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.
 
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.
 
[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]
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst