ITLearning/Dr.Excel

Este in regula ,functioneaza , multumesc. Mai exista o varianta si mai simpla
si variabila a preia numarul liniei dar intrasem intr-un blocaj si nu mai reuseam sa gasesc.
Inca odata multumesc.

Am un fisier mare cu zeci de mii de inregistrari in care caut pe prima coloana valoarea "01". Codul este: Columns("A:A").Select Selection.Find(What:=".01.", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=Fals...

Fisierul atasat de mine este un caz particular, a fost nevoie sa modific cate ceva fiindca este de la serviciu si sunt unele informatii specifice tehnologiei deci confidentiale. Este posibil sa fi ramas niste scame datorita acestei "prelucrari". Dumneavoastra in schimb ati inteles perfect esenta pro...

Buna ziua, As dori sa stiu daca exista o metoda rapida prin care valorile din foaia de lucru InA pot fi copiate (transpose) in foaia de lucru val asa cum reiese si din fisierul atasat. Desi reusesc sa fac asta in doua moduri ( unul din ele se gaseste in macro aferent fisierului ) metoda este un foar...

Eu reusisem pina la urma asa: Dim unusedRow As Long Dim unusedCol As Long Workbooks("Comppers.xlsm").Worksheets("PERS1").Activate unusedRow = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row unusedRow = unusedRow - 1 MsgBox unusedRow unusedCol = Cells.SpecialCells(xlCellTypeLastCell).Offset(1...

Buna ziua, As dori o idee, un punct de plecare in compararea a 2 foi de lucru dintr-un fisier excel asa cum sunt cele 2 din fisierul atasat. Mentionez ca cele 2 foi de a lucru au acelasi numar de linii si coloane, aceiasi structura si chiar si aceiasi ordine. As vrea sa pun in evidenta eventualele d...

Scuze pentru intarziere, deh concediile. In rest impecabila solutie , functioneaza perfect, face fix ce trebuia, multumesc mult.

Catalin

Bun, am sa incerc sa fiu mai concis acum. Am un fisier excel (aproximativ la fel cu cel din atasare) in care se adauga 1440 inregistrari zilnic, cate una la fiecare minut. As vrea sa fac un raport zilnic adica, introducand de la tastatura un sir de caractere gen "26.03.2013" din respectiva foaie de ...

Buna ziua. Am o bucata de cod intr-un macro pe care vreau sa o optimizez pentru ca merge foarte greu. Sunt sigur ca exista metode mai rapide , doar ca momentan nu gasesc: Am urmatorul cod: Do I = I + 1 sir1 = Left(Worksheets("rap").Cells(I, 1).Text, 10) If sir1 = sir Then I = I - 1 sir2 = "A2:M" & I...

Am rezolvat,multumesc Catalin B. Codul in principui ar fi asta: