(28/11/2023, 22:13)feraz yazdı:

(28/11/2023, 21:31)hnakis yazdı: sanki hiç bir kod çalışmıyor.

İlk aklıma gelen hata olduysa application.enableevents=true satırına gelmediyde çalışmaz.Exceli açıp kapatmak gerekiyor yada kod bölümünde strg+g açıp bu komutu yazıp entere basmak.Dediğim kod olmazsada Excel zaten donabilir sayfa kodları ileçalışırken onu yazsak bir türlü yazmasak başka türlü.Bundan dolayo koda hata kodları eklemek şart abey.Belkide userform ile çalışabilirsiniz mantıken.

w/w satırının yanına w/v ilave etmiştim. garanti edilen içeriğe maddeler ve rakamlar ilave edildiğinde pH altındaki d sayısıyla çarpmak için kod yazmaya çalışıyordum. Hata o satırdan kaynaklanıyormuş.

eklediğim çalışma sorunsuz. hız konusu hariç tabi. ona da bir çözüm bulucaz.
emeğinize sağlık. teşekkür ederim sayın feraz.

Şunu sorayım reçete sayfaları gizleme olayları en son Y sütununa kadarmı böyle ise gizleme ve gösterme olayını tek tek değil toptan yapabiliriz.

(28/11/2023, 22:49)feraz yazdı: Şunu sorayım reçete sayfaları gizleme olayları en son Y sütununa kadarmı böyle ise gizleme ve gösterme olayını tek tek değil toptan yapabiliriz.

evet Y sütununa kadar. Aslında o kadar olması gerekiyor mu eminde olamıyorum. toptan derken nasıl yani?

gizle göster dışında garanti edilen içeriklere ekleme yapıldığı gibi sütun ekleyerek de yapılabilir. bu şekilde yapılınca hızında vs bir değişiklik olur mu bilemiyorum.

Karıştırmışsınız bayağı bir neyse düzeltiyorum.
Calculate kodunda alttaki kod var ne için kullanıyorsunuz buda devamlı çalışıyor ve 24 ve 41 nedir bence buna gerekte yok.

With syfAktif
If .Name <> "Sayfa1" Then Exit Sub
For k = 24 To 41
' Eğer hücre boş değilse, satırı görünür yap
If .Cells(k, 2).Value <> "" Then
.Rows(k).Hidden = False
ElseIf Not .Rows(k).Hidden Then
.Rows(k).Hidden = True
End If
Next k
End With

Dosyanızın hızlandırılmış hali ekte.

Önceden dediğim gizleme ve gösterme kodlarınıda yapabilirsem eklerim.
Önceki mesajda yazdığım koduda iptal ettim açıklarsanız bakarız onada.

(28/11/2023, 23:21)feraz yazdı: Karıştırmışsınız bayağı bir neyse düzeltiyorum.
Calculate kodunda alttaki kod var ne için kullanıyorsunuz buda devamlı çalışıyor ve 24 ve 41 nedir bence buna gerekte yok.

With syfAktif
If .Name <> "Sayfa1" Then Exit Sub
For k = 24 To 41
' Eğer hücre boş değilse, satırı görünür yap
If .Cells(k, 2).Value <> "" Then
.Rows(k).Hidden = False
ElseIf Not .Rows(k).Hidden Then
.Rows(k).Hidden = True
End If
Next k
End With

evet onu bende çalışmadan sildim. daha önce yazmışım sanırım. gereksiz bir kodmuş.