(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
O kadarda yapsın artık
(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
Böylece Lcase yazmayada gerek kalmaz.Yavaş yavaş düzeltiyoruz projeyi