Sayfa Alt Toplamlarını Almak

1 2 3 4
13/05/2020, 01:37

berduş

Işlemler isim olan sayfalar üzerinde yapılıyorsa ve isimli sayfalar A1 ile aynıysa döngüyü ona göre kurmamız daha uygun olmaz mi mesela işlem gören sayfa KEMAL BULUT ise bu sayfanın A1 hücresi de KEMAL BULUT o durumda
If LCase(ActiveSheet.Name) = Lcase(Range("A1")) then 
    If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var
    alttoplamAl
Else
    ListBox1.Clear    
    Exit Sub
End if
Var:

Yada
If LCase(ActiveSheet.Name) <> lcase(range("A1")) Then
    ListBox1.Clear
    Exit Sub
End If
If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var
alttoplamAl
var:
gibi
13/05/2020, 02:04

feraz

(13/05/2020, 01:37)berduş yazdı: Işlemler isim olan sayfalar üzerinde yapılıyorsa ve isimli sayfalar A1 ile aynıysa döngüyü ona göre kurmamız daha uygun olmaz mi mesela işlem gören sayfa KEMAL BULUT ise bu sayfanın A1 hücresi de KEMAL BULUT o durumda
If LCase(ActiveSheet.Name) = Lcase(Range("A1")) then 
    If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var
    alttoplamAl
Else
    ListBox1.Clear    
    Exit Sub
End if
Var:

Yada
If LCase(ActiveSheet.Name) <> lcase(range("A1")) Then
    ListBox1.Clear
    Exit Sub
End If
If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var
alttoplamAl
var:
gibi
Aktif sayfa ve A1 deki sayfa adı aynı yazılmazsada sorun olabilir belki.Biz kod yazalım doğru sayfa adlaını konu sahibi halleder abey
(13/05/2020, 01:37)berduş yazdı: Işlemler isim olan sayfalar üzerinde yapılıyorsa ve isimli sayfalar A1 ile aynıysa döngüyü ona göre kurmamız daha uygun olmaz mi mesela işlem gören sayfa KEMAL BULUT ise bu sayfanın A1 hücresi de KEMAL BULUT o durumda
If LCase(ActiveSheet.Name) = Lcase(Range("A1")) then 
    If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var
    alttoplamAl
Else
    ListBox1.Clear    
    Exit Sub
End if
Var:

Yada
If LCase(ActiveSheet.Name) <> lcase(range("A1")) Then
    ListBox1.Clear
    Exit Sub
End If
If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var
alttoplamAl
var:
gibi
Normalde mantıken şöyle daha iyi olur.Sayfaların activate koduna A1 hücresi için [A1]= activesheet.name  diyede yazsa daha garanti olur
13/05/2020, 02:12

berduş

Sistem sayfa isimlendirmesini nasil yapiyor, musteri ismi nereye hangi kodla yaziliyor yeterince inceleme imkanım olmadığı için bilmiyorum ama kodlar standart olarak g5, h5 gibi nokta atışı hücrelerden veri aldığı için A1 de isim olarak doğrudur diye varsayıyorum.
13/05/2020, 02:21

feraz

Berduş hocam bence A1 den almadan direkt activeshhet.name olarak almak daha mantıklı.Sonuçta ikiside olur tabii A1 e doğru yazılırsa sayfa ad yanlış yazılırsa problem.O yüzden sayfa adından işlem yapmak bence daha iyi.
13/05/2020, 02:22

m_demir

Hocalarım Çok, çok teşekkürler ellerinize sağlık. Tam istediğim gibi olmuş.

Hocalarım konuyu taşıyabilirsiniz. Saygılar.
13/05/2020, 02:26

berduş

Orada da şöyle bir sorun çıkabilir katılması istenmeyen sayfa adları değiştirilebilir yada yeni sayfalar eklenip gözardı edilme kodu unutulabilir. A1 hücresi veriyi nereden alıyor? Ya sayfa isimlendirme hangi kodla yapılıyor? Kodları inceleyebildiniz mi? A1'e yanlış veri girebilme ihtimali var mı yoksa kodla kesin olarak müşteri adı mi veriliyor. Sayin @m_demir gerekli açıklamayı yapabilecek durumda.
1 2 3 4