ITLearning/Dr.Excel

Daca am inteles corect cerinta, codul de mai jos ar trebui sa faca ce trebuie: Private Sub ComboBox1_Change() Dim nRow As Double, nColumn As Double nRow = ActiveCell.Row nColumn = Me.ComboBox1.ListIndex + 2 'Atentie ListIndex este "zero based" Range(Cells(nRow, 2), Cells(nRow, 6)).Value = CVErr(xlEr...

O sa presupun ca te intereseaza luna anterioara plecand de la data curenta, adica in luna ianuarie 2020 iti va afisa "2019-12". In acest caz modifica linia Nume = Format(Date, "YYYY-MM") & ".xlsm" cu Nume = Format(Date-Day(date), "YYYY-MM") & ".xlsm" Altfel daca trebuie alta regula, doar trebuie sa ...

Dl. Indigo-ONE, Excelenta solutie. Am testat formula si functioneaza perfect. Multumim din suflet. Atentie, solutia data de Indigo-ONE a functionat numai in situatia in care sirul de numere este ordonat crescator! In situatia in care valorile au fost nesortate, varianta data de Catalin B. a fost ce...

Indigo-ONE scrie: ↑

Mie Apr 24, 2019 11:06 pm

@ Dr.Windows
Eu am inteles ca datele vor fi DOAR pe coloana A (deci nu pe randuri).

Se pare ca eu sunt singurul care a inteles gresit... doar sunt Dr.Windows nu Dr.Excel...
Dar a meritat incercarea.

Si super formula Indogo! "Scurt si la obiect!"

Atunci mai am eu o varianta mai putin eleganta decat a lui Tudy, dar cel putin in teorie ar trebui sa fie mai flexibila. Presupunand ca nu se stie cate numere vor fi pe un rand, dar se respecta intotdeauna regula de imparitate si "peste 3", atunci ar trebui gasit "mijlocul" si luate in calcul si cel...

Cand este vorba de VBA, orice se poate. ;) Codul de mai jos adauga/modifica 3 imagini si se bazeaza pe urmatoarele: 1. Numele imaginii se preia de pe coloana J, extensia se adauga automat si este "fixata" ca PNG. Se poate extinde rangeul J1:J3 cu oricat de multe poze sunt necesare ;) 2. Imaginile tr...

Salut! Cel mai simplu ar fi fost daca faceai rotunjirile direct in Excel si apoi foloseai acele campuri in MailMerge. Daca vrei sa faci operatiunea in Word, se poate folosi si aici functia ROUND, intr-un camp ce va include campul tau (se introduce cu CRTL+F9). Adica va arata asa: RoundingMergeField....

Codul ar putea fi urmatorul: Sub SalvareCuNumePredefinit() Dim Cale As String, Nume As String Cale = "D:\TEMP\" Nume = Format(Date, "YYYY-MM") & ".xlsm" ActiveWorkbook.SaveCopyAs _ Filename:=Cale & Nume MsgBox "Fisierul " & Cale & Nume & " a fost salvat." End Sub Daca se foloseste metoda SaveCopyAs ...

Varianta cea mai simpla ar fi sa modifici formula care aduce datele din celelalte tabele ca in loc de "FALSE" sa returneze "" (adica "blank") si atunci la concatenare va rezulta ce trebuie. Alta varianta ar fi sa folosesti SUBSTITUTE si sa "scapi" de FALSE: =SUBSTITUTE(G3,"FALSE","") sau direct in c...

Hmmm... dificil in cazul asta de "interceptat" eroarea. O alta sugestie ar fi un sistem de "logging" intr-un fisier TXT sau oricum ceva "extern" in care sa pui niste informatii ca sa stii in ce punct/pas se afla cand nu a mai logat nimic si poate asa te poti apropia de secventa care ar putea sa gene...