- Katılım
- 11 Ocak 2008
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- Office 365 (Türkçe)
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
L9=M9=Kod:DÜŞEYARA($K$9;$Q$8:$U$16;2;0)N9=Kod:DÜŞEYARA($K$9;$Q$8:$U$16;3;0)O9=Kod:DÜŞEYARA($K$9;$Q$8:$U$16;4;0)Kod:DÜŞEYARA($K$9;$Q$8:$U$16;5;0)
=DÜŞEYARA($M$10;$Q$9:$U$17;3;0)
m10 İÇİN :Kod:=DÜŞEYARA($M$10;$Q$9:$U$17;3;0)
SONUÇ: 0,00 diğerleri de 0 oluyor üstad çözemedim.
L10 için ; =EĞER($K$11="";"";DÜŞEYARA($K$10;$Q$10:$U$39;2;0))
Kod:L10 için ; =EĞER($K$11="";"";DÜŞEYARA($K$10;$Q$10:$U$39;2;0))
Üstadım sizin verdiğiniz formül yukarıdaki ve sorun yok.yanındaki
hücrelerdekini düzenleyemedim, bir türlü.
sizin dosyada unvan silinince;
C10 hücresi:sorun yok, F10 hücresi:#DEĞER hatası, G10 hücresi:sorun yok, H10 hücresi:sorun yok
nasıl düzelebilir.orjinal dosyaya uygulayınca;
BORDRO ÇIKTI sheetinde unvan silinince C10 hücresi:#DEĞER hatası, F10 hücresi:#DEĞER hatası, G10 hücresi:#DEĞER hatası, H10 hücresi:#DEĞER hatası,
sorunuzu anlayamadım,sheete sağ tıklayınca formülleri gizleyebiliyoruz. bu sorun yaratıyor. bunu başka yolla çözebilirmiyiz
İl genelinde bütün ilçelere gönderilecek dosya, bazen karıştırıyorlar formülleri sonra sıkıntı oluyor.
Formülleri karıştırmasınlar sadece sheette girecek yerlere girsinler.
Sub FormulKoru()
ActiveSheet.Unprotect "CAHAN"
Range("N1,O23:W46,K5:K7,M5:M7,B12:M18").Locked = False
Range("N1,O23:W46,K5:K7,M5:M7,B12:M18").SpecialCells(xlCellTypeFormulas, 23).Locked = True
Range("N1,O23:W46,K5:K7,M5:M7,B12:M18").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
ActiveSheet.Protect "CAHAN", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Bitti"
End Sub

Sub FormulKoru()
ActiveSheet.Unprotect "[COLOR="red"]CAHAN[/COLOR]"
Range("C10:H34,L10:O34,R10:U39").Locked = False
Range("C10:H34,L10:O34,R10:U39").SpecialCells(xlCellTypeFormulas, 23).Locked = True
Range("C10:H34,L10:O34,R10:U39").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
ActiveSheet.Protect "[COLOR="Red"]CAHAN[/COLOR]", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Bitti"
End Sub
Üstadım, 5 no lu mesajda paylaştığınız dosyada F10 hücresinde #DEGER! hatası veriyor. O nasıl düzelir.
Diğer verdiğiniz makro üzerine çalışıyorum. İnşallah yaparım.
Merhaba,
F10 hücresine , =EĞER(K10="";"";D10*M10) yazınız,
Formül F10 için şöyle diyor ; K10 hücresi boş olduğunda hiç bir şey yapma (yazma), K10 dolu ise D10 ile M10'u çarp.
Formül şöyle de olabilir ; =EĞER(K10<>"";D10*M10;"")
yani K10 boş değilse D10 ile M10'u çarp, boş ise bir şey yapma.
Kolay gelsin.
=EĞER(K10<>"";D10*M10;"")
=EĞER($C10="";"";DÜŞEYARA($C10;$Q$10:$U$39;2;0))
=EĞER($C10="";"";DÜŞEYARA($C10;$Q$10:$U$39;3;0))
=EĞER($C10="";"";DÜŞEYARA($C10;$Q$10:$U$39;4;0))
=EĞER($C10="";"";DÜŞEYARA($C10;$Q$10:$U$39;5;0))
=EĞER($K10="";"";DÜŞEYARA($K10;$Q$10:$U$39;2;0))
=EĞER($K10="";"";DÜŞEYARA($K10;$Q$10:$U$39;3;0))
=EĞER($K10="";"";DÜŞEYARA($K10;$Q$10:$U$39;4;0))
=EĞER($K10="";"";DÜŞEYARA($K10;$Q$10:$U$39;5;0))