Matjazev.NET

Problem izgleda sledeče. Imam tabele Konstante011 .. Konstante01n. V celici tabele Konstante011, A4, je zapisana neka vsebina, od katere me zanima samo zadnjih osem znakov. Zadnih osem znakov vsebine prve tabele Konstante011, celica A4, izrežem in zapišem v tabelo Skupna, celica D2. Iz naslednje tab...

Hvala za pomoč. Deluje. Imam še eno vprašanje. Podatke prenašam iz dveh tabel. Polje iz prve tabele prenese pravilno na zahtevano mesto (D2). Polje iz druge tabele pa prenese na lokacijo prejšnjega prenosa (D2), ne preskoči v novo vrstico (D3). Hvala za pomoč. Sub MakroTrim() ' +--------------------...

Prosim za nasvet kako prenesem del polja iz ene tabele v drugo. V neko tabelo prepisujem del vsebine celice (zadnji 8 znakov) iz tabele Konstante011.xlsx. Zgodi se, da mi vsebino celice pravilni prenese obenem pa popravi celico iz katere prenašam zadnih 8 znakov. Hvala za pomoč. Sub MakroTrim() ' Tr...

Hvala za odgovor.
Ker je v igri več deset tabel sem jih želel sproti zapirati.
lp

Prosim za nasvet kako po uporabi pravilno zaprem tabelo iz katere prenašam podatke. V neko tabelo prepisujem vsebino celice iz tabele Izracun011.xlsx. V tabeli Izracun011.xlsx je v celici ki jo prenašam, vpisan rezultat nekih računskih operacij. Hvala za pomoč. Sub Makro1() ' Prenos izračunanih polj...

V excelovi tabeli imam več delovnih listov.
Če je možno v e-pošto pripeti samo en delovni list iz tabele me zanima kako.
Hvala za odgovor.

Z vprašanjem sem bil prehiter.
Res pomaga TEXT(a8;"0,00").

V wordu spajam dokumente. Bazo podatkov imam v excelu. Kolono znesek imam definirano kot številko z dvemi decimalkami npr.: 44,52. Ko dokument spajam, pri prejemnikih dokumenta v wordu dobim drugačne številke, kot so videti v excelu. Word vidi številko iz excela 44,52 kot 44,5200000000000003. In tak...

Stvar deluje.
Najlepša hvala za pomoč.

Makro sem prekopiral in izvedel. Vrstici Range("L2").Select ActiveCell.FormulaR1C1 = "=DATE(YEAR(NOW()), MONTH(NOW()), DAY(NOW())-5)" napolnita celico L2, vrstica Selection.AutoFill Destination:=Range(Range("L2"), Range("L65536").End(xlUp)), Type:=xlFillDefault javi sledečo napako: Run-time error '1...

Hvala za odgovor. Če sem pravilno razumel naj bi makro izgledal tako: Sub Makro3() Range("A65536").End(xlUp).Select Range("L2").Select ActiveCell.FormulaR1C1 = "=DATE(YEAR(NOW()), MONTH(NOW()), DAY(NOW())-5)" Selection.AutoFill Destination:=Range(Range("L2"), Range("L2").End(xlDown)), Type:=xlFillDe...

Imam tabelo v kateri se veliko spreminja število zapisov. Da ne bi vedno popravljal makra z Range("A65536").End(xlUp).Select ugotavljam zadnjo izpolnjeno vrstico v tabeli. Ne vem kako v makru vpisati to številko zadnje vrstice obseg kolone v Destination:=Range("L2: L140 ") in Range("L2: L140 ").Sele...