[ÇÖZÜLDÜ] Hücre içindeki formülün cinsine yada metnine göre işlem yapma hakkında

[Fenomen]

Herkese iyi çalışmalar dilerim
Yapmaya çalıştığım programımda içinde toplam olan hücreye göre işlem yapmaya çalışıyorum ama hücrenin içinde topla formülü olduğunu yada topla yazdığını gösteremiyorum

örneğim ektebulunmaktadır yardım ederseniz sevinirim şimdiden teşekkür ederim.

 

[uzmanamele]

merhaba
aşağıdaki şekilde dener misiniz

Private Sub CommandButton1_Click()
For i = 3 To Cells(65536, 3).End(xlUp).Row
    If Cells(i, 3).Formula Like "=SUM(??:??)" Then
        Cells(i, 2) = "Toplam"
    End If
Next
End Sub

 

[Fenomen]

Sayın uzun amele ilgineze teşekkür ederim ama olmadı malesef

 

[Fenomen]

Sn. uzunamale
sizin vermiş olduğunuz bilgi üzerine düşünerek aşağıdaki şekilde sorunumu halletim

For i = 3 To Cells(65536, 3).End(xlUp).Row
If Left(Cells(i, 3).Formula, 4) = "=SUM" Then
Cells(i, 2) = "Toplam"
End If
Next

teşekkür ederim
2. sorunum ise toplam yazan sütunların yanına toplam formülünü eklemek

ekteki dosyada detaylı açıkladım incelerseniz sevinirim

 

[Korhan Ayhan]

Selamlar,

Sanırım siz aralardaki boşluklara toplam aldırmak istiyorsunuz. Bu işlemin en kolay yolu Veri menüsünden Alttoplam işlevini kullanmaktır. Bu işlevi kullanırken aralara boş satırlar eklemenize gerek yok. Boş satırları silip bu işlevi kullanmayı deneyin.

Ayrıca makro ile yapmak istiyorum derseniz aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub BOŞ_HÜCRELERE_TOPLAM_AL()
    Dim X As Long, TOPLAM As Double
    For X = 3 To [A65536].End(3).Row + 1
    If Cells(X, "A") <> "" Then
    TOPLAM = TOPLAM + Cells(X, "C")
    End If
    If Cells(X, "A") = 0 Then
    Cells(X, "C") = TOPLAM
    TOPLAM = 0
    End If
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[uzmanamele]

merhaba
syn Korhan Ayhan sorunuzu cevaplamış ama benim önerdiğim kod neden çalışmadı?

 

[Fenomen]

Sn. uzunamele
sizin verdiğiniz kod sanırım benim like dan sonra "=SUM(??:??)" Yerine "=Sum(??:??)" yazmam göndermiş olduğunuz örnekte "=SUM(??:??)" ifadesi tek basamaklı hücrelerde çalışıyor ancak 2 basamaklı hücrelerde çalışmıyor bu sorunu aşağıdaki şekilde çözdüm teşekkür ederim

For i = 3 To Cells(65536, 3).End(xlUp).Row
If Cells(i, 3).Formula Like "=SUM(??:??)" Or Cells(i, 3).Formula Like "=SUM(???:???)" Then
Cells(i, 2) = "Toplam"
End If
Next


Sn. Korhan Ayhan

Sizin vermiş olduğunuz kodda sayıları boş hücrelere topluyor ancak ben boş hücreye toplam formülü ile toplam almasını istiyorum bu konuda yardımcı olursanız sevinirim.


iyi çalışmalar dileğiyle

 

[Fenomen]

Sn. uzunamele, Sn Korhan Bey ve tüm excel.Web.Tr ailesi hepinize teşekkür ediyorum yardımlarınızla sorunumu çözdüm dosyayıda diğer arkadaşların da işine yarar diye ekliyorum hepinizin emeğine sağlık


birde küçük soru like deyiminin tersi not like diye tahmin ettim ama olmadı bu nedir bu konuda aydınlatırsanız beni sevinirim

 

[uzmanamele]

merhaba
syn Fenomen, güle güle kullanın.
5. kez ismimi uzunamele yazarsanız siteye girişiniz 1 hafta yasaklanacakdır, bilginize. :hihoho:

 

[Orion1]

Sn. uzunamele, Sn Korhan Bey ve tüm excel.Web.Tr ailesi hepinize teşekkür ediyorum yardımlarınızla sorunumu çözdüm dosyayıda diğer arkadaşların da işine yarar diye ekliyorum hepinizin emeğine sağlık


birde küçük soru like deyiminin tersi not like diye tahmin ettim ama olmadı bu nedir bu konuda aydınlatırsanız beni sevinirim

Birebir ayni olmasını istiyorsanız Like Yerine = koyunuz.
eşit değildir kullanmak istiyorsanız like yerine <> operatörlerini kullanınız.

 

[Orion1]

merhaba
syn Fenomen, güle güle kullanın.
5. kez ismimi uzunamele yazarsanız siteye girişiniz 1 hafta yasaklanacakdır, bilginize. :hihoho:

:hihoho:
_____________________________________

 

[Fenomen]

Sn. Uzmanamele Bey &#199;ok &#246;z&#252;r dilerim ayr&#305;ca cevab&#305;n&#305;z ve ho&#351; g&#246;r&#252;n&#252;z i&#231;in te&#351;ekk&#252;r ederim