"ö" içeren sayılara karşılık gelenleri toplama;

[Ömer]

hocam bunu kod olarak macroda yapamazmıyız hücre sayısı 20000'den fala olduğu için dosya donuyor.
ayrıca;8 lokasyonu formüldekiyle benim datamdakine uymuyor . sanırım boşluk filan olarak görüyor, data sürekli as400'den veri çektiği için değiştiremiyorum förmülde yada kod olursa bu sorun giderilebilir mi?

Bu şekilde deneyin.

Yalnız 8 lerin sayıya çevirmesiyle ilgili sorun yaşarsanız, as400'den veri çektikten sonra dosyanızdan küçük bir parça tutarak foruma eklerseniz veri tipine göre kodları yeniden düzenlerim.

Sub Hesapla()
 
    Dim i As Long, c As Range, Adr As Variant, Sa As Worksheet
 
    Set Sa = Sheets("AS400")
 
    Application.ScreenUpdating = False
 
    Sheets("SEÇ").Select
    Range("E2:E" & Rows.Count).ClearContents
 
    For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        With Sa.Range("C:C")
            Set c = .Find(Cells(i, "C"), , xlValues, xlWhole)
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                  If Sa.Cells(c.Row, "A") = 8 Or _
                    Sa.Cells(c.Row, "H") Like "*ö*" Then
                    Cells(i, "E") = Cells(i, "E") + Sa.Cells(c.Row, "I")
                  End If
                  Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
 
End Sub

.

 

[orange4609]

Merhaba Ömer Bey,

kod 8 sayısınıda tanıyor.tek sorun 30 dk.da verileri aktarıyor.sanırım bunada yapacak bi şey yok.

as400 sayfasında toplam 18000 satıra kadar,seç sayfasında ise satır3000'e kadar veri içeriyor

bunları sınırlasak biraz daha hızlı çalışır mı acaba??

tşkler.

iyi günler.

 

[orange4609]

Ömer Bey çok tşkler.

sayı tanımlamasını sizin söylediğiniz gibi yaptım sıkıntı giderildi.

İlginiz için tekrar tekrar tşkler.

iyi günler...