Új hozzászólás Aktív témák

• #42081 karlkani aktív tag Fferi50 #42072

  Új Válasz 2019-11-02 12:18:06 #42081

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  karlkani

  aktív tag

  válasz Fferi50 #42072 üzenetére

  Szia!

  Értem.
  Jól sejted, van egy másik lap, onnan nézi a dátumokat.

  (#42073) ny.janos
  Feltételes formázásnál ez a képlet szerepel: =DARABTELI(Ünnepnapok;$C1)>0

  (#42076) Delila_1
  Ezzel a képlettel működik:
  =HA(DARABTELI(Ünnepnapok;C2251)>0;DARABTELI(Ünnepnapok;C2251);"")

  Annak idején segítettél nekem létrehozni ezt a makrót:
  Function Orak(tartomany As Range)
    Dim CV As Range, osszeg As Double, WSD As Worksheet, WF As WorksheetFunction
    
    Set WSD = Sheets("Dátum")
    Set WF = Application.WorksheetFunction
    
        For Each CV In tartomany
        If Not IsNumeric(CV) Or CV = "" Then GoTo Tovabb
        If WF.CountIf(WSD.Columns(4), Cells(CV.Row, "C")) = 0 And _
            WF.CountIf(WSD.Columns(6), Cells(CV.Row, "C")) = 0 And _
            WF.Weekday(Cells(CV.Row, "C"), 2) < 6 Or _
            WF.CountIf(WSD.Columns(2), Cells(CV.Row, "C")) > 0 Then osszeg = osszeg + CV
Tovabb:
    Next
    Orak = osszeg
End Function

  Már többször előfordult, hogy a füzet megnyitásakor az összes olyan cella értéke, ami ezt a makrót használja összegzésre 0-ra módosult. Csak úgy tudtam újraszámoltatni, hogy a cellára álltam, szerkesztőléc, Enter (sok cellánál ez elég macerás), vagy átneveztem a fájlt, vagy töröltem a fájlra vonatkozó bejegyzést a regisztrációs adatbázisból az alábbi helyen.
  HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\Trusted Documents\TrustRecords

  Ötlet?

Új hozzászólás Aktív témák