Registru de Casa

La sugestia cititorilor am lansat aceasta sectiune de forum. Daca ai orice fel de intrebare despre Excel, o poti adresa aici, comunitatea ExcelNinja.ro va incerca sa iti dea un raspuns.

0
Marcel 19 Rep.

Buna ziua,

Am o rugaminte, poate ma ve-ti ajuta.

Am un excel creat pt. un regitru de casa.

Contine un macro (“Sub DoDays_Fara_SD_Copiere_Model()”), care genereaza doar zilele lucratoare, aici as vrea sa excluda sarbatorile care sunt trecute intr-un tabel.

Mai contine un macro (“Sub IntroduceDataNumeFoaie()”), care completeaza data in functie de numele foii, care este nr. zilei, aici as vrea ca inserarea sa se opreaca la ultima foaie care reprezinta ziua lunii.

Mai am un macro (“Sub CopiereReport()”),  copiaza reportul, dar nu stiu cum sa copiez formula dintr-o foaie in cealalta.

Atasez un model.

Va multumesc anticipat.

Cu Stima, Moga.

 

 

Nu stiu de ce nu pot face “upload”  si nici “add from link”. Mai incerc.

https://mega.nz/#!MN9Q1JhZ!qQHphZ6QdGFSAySgfppC6IVNqkHyUk7W3J8gOkzS9h4

 

La prima problema am gasit rezolvare. Daca doreste cineva codul sa-mi spuna.

————————————————————————————————————————

Cum as putea modifica urmatoarea functie astfel incat sa functioneze cu: “Holidays = Range(“E1:E15″)”,

in loc de: “Holidays = Array(42736, 42737, 42738)”? Sau paote stie cineva alte variante.

Function NextNetWorkDay(d As Date) As Date
Application.Volatile ‘When function is used as a function in a cell, means the function runs on every calculation
Dim Holidays(), i As Integer

‘Holidays = Range(“E1:E15”)

Holidays = Array(42736, 42737, 42738)
Do
i = i + 1
If WorksheetFunction.NetworkDays(d + i, d + i, Holidays) = 1 Then
NextNetWorkDay = d + i
End If
Loop Until NextNetWorkDay > 0
End Function

Marcel edited question
    0
    Radu Popa 339 Rep.

    Marcel, ar ajuta daca ai pune si fisierul, sau link inspre fisier.

    Radu Popa answered
      ×

      Login

      Question stats

      • Active
      • Views337 times
      • Answers1 answer
      • Followers0 followers
      Question and answer is powered by AnsPress.io