• DİKKAT

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

Formülüm çok kasıyor aynı görevi gören makro mümkün mü acaba

vakyn

vakyn

Katılım
11 Ağustos 2023
Mesajlar
106
Excel Vers. ve Dili
Microsoft 365 Tr 64 Bit
Merhabalar

aşağı eklediğim formülü VBA koduna cevirebilmemiz mümkün mü yapay zekaya sordum fakat verdiği kod excelimi resmen kilitledi dondu görev yöneticisinden sonlandırdım konu hakkında yardımcı olacak arkadaşları davet ediyorum.

=TOPLA.ÇARPIM(EĞERHATA(ESAYIYSA(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209="SRU")/ÇOKEĞERSAY(WELDLOG!$AZ$2:$AZ$94209:WELDLOG!$AZ$2:$AZ$94209;">0";WELDLOG!$D$2:$D$94209;WELDLOG!$D$2:$D$94209&"");0))
 
Mutlaka kopya bir dosyada deneyiniz


Excel Formülünüz
excel
Kodu kopyala
=TOPLA.ÇARPIM(EĞERHATA(ESAYIYSA(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209="SRU")/ÇOKEĞERSAY(WELDLOG!$AZ$2:$AZ$94209:WELDLOG!$AZ$2:$AZ$94209;">0";WELDLOG!$D$2:$D$94209;WELDLOG!$D$2:$D$94209&"");0))

Bu formül, WELDLOG sayfasındaki belirli aralıkları değerlendirir ve belirli koşullara göre toplama işlemi yapar.
VBA Koduna Çevirme
Aşağıda, verdiğiniz Excel formülünü VBA koduna dönüştüren bir örnek bulunmaktadır. Bu kod, formülünüzün yaptığı işlemleri VBA ile yapar. Kodu bir modül içine ekleyebilir ve gerekli yerlerde kullanabilirsiniz.

Function CalculateSumProduct() As Double
Dim ws As Worksheet
Dim lastRow As Long
Dim sumResult As Double
Dim cellValue As Variant
Dim countPositive As Long
Dim i As Long

Set ws = ThisWorkbook.Sheets("WELDLOG")
lastRow = ws.Cells(ws.Rows.Count, "AZ").End(xlUp).Row
sumResult = 0
countPositive = 0

For i = 2 To lastRow
If ws.Cells(i, "A").Value = "SRU" Then
If IsNumeric(ws.Cells(i, "AZ").Value) And ws.Cells(i, "AZ").Value > 0 Then
countPositive = countPositive + 1
sumResult = sumResult + ws.Cells(i, "D").Value
End If
End If
Next i

If countPositive > 0 Then
CalculateSumProduct = sumResult / countPositive
Else
CalculateSumProduct = 0
End If
End Function

Açıklama:
  1. ws: WELDLOG sayfasını temsil eder.
  2. lastRow: AZ sütunundaki son kullanılan satırı bulur.
  3. sumResult: Toplam değeri tutar.
  4. countPositive: Pozitif ve sayısal değerlerin sayısını tutar.
  5. For Döngüsü: A sütunundaki "SRU" değeriyle eşleşen ve AZ sütununda sayısal ve pozitif değerlere sahip satırları kontrol eder.
  6. Sonuç Hesaplama: Pozitif değerlerin sayısı 0'dan büyükse, toplam sonucu bu sayıya böler. Aksi takdirde, 0 döner.
Kullanım
  1. Excel'de bir VBA modülü oluşturun (Alt + F11 ile VBA editörünü açın ve Insert > Module seçeneğini kullanın).
  2. Yukarıdaki kodu bu modüle yapıştırın.
  3. Excel'e geri dönün ve formülünüzü =CalculateSumProduct() şeklinde bir hücreye yazabilirsiniz.
Bu VBA kodu, formülünüzün yaptığı işlemleri VBA kullanarak gerçekleştirir ve aynı sonuca ulaşmayı sağlar.
 
cems' Alıntı:
Mutlaka kopya bir dosyada deneyiniz


Excel Formülünüz
excel
Kodu kopyala
=TOPLA.ÇARPIM(EĞERHATA(ESAYIYSA(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209="SRU")/ÇOKEĞERSAY(WELDLOG!$AZ$2:$AZ$94209:WELDLOG!$AZ$2:$AZ$94209;">0";WELDLOG!$D$2:$D$94209;WELDLOG!$D$2:$D$94209&"");0))

Bu formül, WELDLOG sayfasındaki belirli aralıkları değerlendirir ve belirli koşullara göre toplama işlemi yapar.
VBA Koduna Çevirme
Aşağıda, verdiğiniz Excel formülünü VBA koduna dönüştüren bir örnek bulunmaktadır. Bu kod, formülünüzün yaptığı işlemleri VBA ile yapar. Kodu bir modül içine ekleyebilir ve gerekli yerlerde kullanabilirsiniz.

Function CalculateSumProduct() As Double
Dim ws As Worksheet
Dim lastRow As Long
Dim sumResult As Double
Dim cellValue As Variant
Dim countPositive As Long
Dim i As Long

Set ws = ThisWorkbook.Sheets("WELDLOG")
lastRow = ws.Cells(ws.Rows.Count, "AZ").End(xlUp).Row
sumResult = 0
countPositive = 0

For i = 2 To lastRow
If ws.Cells(i, "A").Value = "SRU" Then
If IsNumeric(ws.Cells(i, "AZ").Value) And ws.Cells(i, "AZ").Value > 0 Then
countPositive = countPositive + 1
sumResult = sumResult + ws.Cells(i, "D").Value
End If
End If
Next i

If countPositive > 0 Then
CalculateSumProduct = sumResult / countPositive
Else
CalculateSumProduct = 0
End If
End Function

Açıklama:
  1. ws: WELDLOG sayfasını temsil eder.
  2. lastRow: AZ sütunundaki son kullanılan satırı bulur.
  3. sumResult: Toplam değeri tutar.
  4. countPositive: Pozitif ve sayısal değerlerin sayısını tutar.
  5. For Döngüsü: A sütunundaki "SRU" değeriyle eşleşen ve AZ sütununda sayısal ve pozitif değerlere sahip satırları kontrol eder.
  6. Sonuç Hesaplama: Pozitif değerlerin sayısı 0'dan büyükse, toplam sonucu bu sayıya böler. Aksi takdirde, 0 döner.
Kullanım
  1. Excel'de bir VBA modülü oluşturun (Alt + F11 ile VBA editörünü açın ve Insert > Module seçeneğini kullanın).
  2. Yukarıdaki kodu bu modüle yapıştırın.
  3. Excel'e geri dönün ve formülünüzü =CalculateSumProduct() şeklinde bir hücreye yazabilirsiniz.
Bu VBA kodu, formülünüzün yaptığı işlemleri VBA kullanarak gerçekleştirir ve aynı sonuca ulaşmayı sağlar.
Genişletmek için tıkla ...
Detaylı anlatımınız için çok teşekkürler.

252952

böyle bir uyarı aldım bu aşamada ne yapmam gerekiyor.
 
Birden fazla bulunan isim var : diyor, dosyan olmadan nedir goremeyiz ancak : den sonraki kısmı find komutunu kullanarak ararsan sadece o isimleri gosterir. Ancak verdiğim kod dışında olan nerde incelemek ve silerek yeniden çalıştırmak gerekir. Bu durumda isim cakısması yasanmaz
 
Merhaba.

Alternatif


Formül sonucu B sütununa yazar ("B2:B" bu kısmı değiştirebilirsiniz)
A sütunundaki satır sayısı kadar satıra uygulanır. (Değiştirmek için "A" kısmını değiştirin.
Değiştireceğiniz kısım With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row) satırındadır. Başka hiçbir yeri değiştirmeyin.

Kod: 
Sub Test()
    With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Formula = "=SUMPRODUCT(IFERROR(ISNUMBER(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209=""SRU"")/COUNTIFS(WELDLOG!$AZ$2:$AZ$94209,"">0"",WELDLOG!$D$2:$D$94209,WELDLOG!$D$2:$D$94209&""""),0))"
        .Value = .Value
    End With
End Sub


Eğer doğru sonuç alamazsanız dosyanızı eklerseniz en doğru ve hızlı yanıtı alırsınız.
 
Muzaffer Ali' Alıntı:
Merhaba.

Alternatif


Formül sonucu B sütununa yazar ("B2:B" bu kısmı değiştirebilirsiniz)
A sütunundaki satır sayısı kadar satıra uygulanır. (Değiştirmek için "A" kısmını değiştirin.
Değiştireceğiniz kısım With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row) satırındadır. Başka hiçbir yeri değiştirmeyin.

Kod: 
Sub Test()
    With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Formula = "=SUMPRODUCT(IFERROR(ISNUMBER(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209=""SRU"")/COUNTIFS(WELDLOG!$AZ$2:$AZ$94209,"">0"",WELDLOG!$D$2:$D$94209,WELDLOG!$D$2:$D$94209&""""),0))"
        .Value = .Value
    End With
End Sub


Eğer doğru sonuç alamazsanız dosyanızı eklerseniz en doğru ve hızlı yanıtı alırsınız.
Genişletmek için tıkla ...
Function CalculateSumProduct() As Double
Dim ws As Worksheet
Dim lastRow As Long
Dim sumResult As Double
Dim countPositive As Long
Dim i As Long

Set ws = ThisWorkbook.Sheets("WELDLOG")
lastRow = ws.Cells(ws.Rows.Count, "AZ").End(xlUp).Row
sumResult = 0
countPositive = 0

For i = 2 To lastRow
If ws.Cells(i, "A").Value = "SRU" Then
If IsNumeric(ws.Cells(i, "AZ").Value) And ws.Cells(i, "AZ").Value > 0 Then
countPositive = countPositive + 1
sumResult = sumResult + ws.Cells(i, "D").Value
End If
End If
Next i

If countPositive > 0 Then
CalculateSumProduct = sumResult / countPositive
Else
CalculateSumProduct = 0
End If
End Function

Sub Test()
With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
.Formula = "=SUMPRODUCT(IFERROR(ISNUMBER(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209=""SRU"")/COUNTIFS(WELDLOG!$AZ$2:$AZ$94209,"">0"",WELDLOG!$D$2:$D$94209,WELDLOG!$D$2:$D$94209&""""),0))"
.Value = .Value
End With
End Sub



Bu şekilde mı olması gerekiyor Muzaffer bey birleştiremedim
 
Yapmak istediğimi formül ile değil yazı ile sunayım isterseniz

Excelimde 10 tane alt sayfa var bunlardan birisi "weldlog"

1) weldlog da bulunan A:A sütunu "SRU" ise

2) weldlog da bulunan AZ sütununda tarih varsa

3) weldlog da bulunan D:D sütunundaki verileri dublikelerini kaldırarak topla

Sonuçu istediğim bir sayfada istediğim bir hücreye yerleştirmek.
 
Diğer kodları hiç kullanmayacaksınız sadece benim verdiğim kodu kullanacaksınız.

vakyn' Alıntı:
Sonuçu istediğim bir sayfada istediğim bir hücreye yerleştirmek.
Genişletmek için tıkla ...
Bu kısım da önemli. Bunu da belirtmelisiniz. Hangi sayfa hangi hücreler?
 
vakyn' Alıntı:
Yapmak istediğimi formül ile değil yazı ile sunayım isterseniz

Excelimde 10 tane alt sayfa var bunlardan birisi "weldlog"

1) weldlog da bulunan A:A sütunu "SRU" ise

2) weldlog da bulunan AZ sütununda tarih varsa

3) weldlog da bulunan D: D sütunundaki verileri dublikelerini kaldırarak topla (bunlar sayı değil yazı belirtmek istedim)

Sonuçu istediğim bir sayfada istediğim bir hücreye yerleştirmek.
Genişletmek için tıkla ...
 
ALL UNIT SUMMARY sayfasında BB1 hücresine sonucu yazar.
Sadece aşağıdaki kodu çalıştıracaksınız başka hiçbir kodun çalıştırılmasına eklenmesine gerek yok.

Kod: 
Sub Test()
    With Worksheets("ALL UNIT SUMMARY").Range("BB1")
        .Formula = "=SUMPRODUCT(IFERROR(ISNUMBER(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209=""SRU"")/COUNTIFS(WELDLOG!$AZ$2:$AZ$94209,"">0"",WELDLOG!$D$2:$D$94209,WELDLOG!$D$2:$D$94209&""""),0))"
        .Value = .Value
    End With
End Sub
 
Makroyu yazdım ama sonucu 0 olarak yansıttı acaba kod yazarken hızlı yazılarak yanlış yazılan bir komut olabilir mi.

252953
 
.Value = .Value şu kısmı silin 1. mesajda yazdığınız formülün aynısının hücreye yazıldığını göreceksiniz. Bir hata olup olmadığını kontrol edin.
 
Sub Test()
With Worksheets("ALL UNIT SUMMARY").Range("BB1")
.Formula = "=SUMPRODUCT(IFERROR(ISNUMBER(WELDLOG!$AZ$2:$AZ$94209)*(WELDLOG!$A$2:$A$94209=""SRU"")/COUNTIFS(WELDLOG!$AZ$2:$AZ$94209,"">0"",WELDLOG!$D$2:$D$94209,WELDLOG!$D$2:$D$94209&""""),0))"
End With
End Sub
bu şekilde yazdım ama değer yine 0 yazdı.

252954

hücre içerisine formülü yazmış.
 
0 yazıyor dediğiniz hücreye sizin 1. mesajda yazdığınız formülü yazdırdım.
1. mesajda yazdığınız formülden farklı bir şey yazdırmadım.

Aşağıdakileri yaparak kontrol edin.

1- 1. mesajda yazdığınız formülde hata var.
2- 1. mesajda yazdığınız formülde hata yoksa BB1'e yazdırdığınız formül ile 1. mesajda yazdığınız formülü alt alta yazıp aralarında bir fark olup olmadığını kontrol etmelisiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst