Matjazev.NET

Z uporabo Excel VBA želim skreirati novo tabelo v Acces-u. Po korakih sem prišel do spodnje kode. Option Explicit Dim a As Byte Dim b As Byte Dim c As Byte Dim d As Byte Dim e As Byte Dim f As Byte Dim g As Byte Dim x As Byte Dim n As Long Sub addcolumns_II() n = 1 a = 1 b = 2 c = 3 d = 4 e = 5 f = ...

Imam veliko količino teksta. Zanima me, kako bi označil in skopiral samo številke v tem tekstu in jih potem prilepil recimo v Excel.

lp

Imam 6 stolpcev. V prvem stolpcu je navedeno ime investicije, v naslednjih 5 stolpcih pa koliko denarnih sredstev se bo v posameznem letu namenilo za vsako investicijo. Investicije se različno začnejo in imajo različno trajanje. V 7 stolpec bi rad skupaj napisal začetek in trajanje investicije npr.:...

Se zahvaljujem za popravke. Skoraj neverjetno je, koliko tak makro olajša delo, vendar je potrebno precizno spisati kodo. V nadaljevanju bi me zanimlao, kaj je potrebno spremeniti, da bi makro listal po file-ih v ne samo v mapi, ampak tudi v podmapah te mape?

lp

Ko zaženem makro se le-ta ustavi v vrstici: ThisWorkbook.Sheets(1).Cells(Datoteka + 1, 2).Value = Workbooks(xDirect$ & xFname$).Sheets(1).Cells(9, 4).Value Napiše se opozorilo Subscript out of range. Želim: 1 stolpec pot 2 stolpec ime file 3 stolpec vrednost celice Cellls(9, 4) vsakega file v mapi l...

Rabil bi malenkost drugačno rešitev, ki izpiše vrednost iz iste celice vsake datoteke. Sem pobrskal po vašem forumu in malo po netu ter sestavil tole, vendar je nekaj narobe: Sub Izvlacenje2() Dim xRow As Long Dim xDirect$, xFname$, InitialFoldr$ InitialFoldr$ = "C:\Excel\" '<<< Startup folder to be...

V mapi imam več datotek *.xls, ki imajo enako strukturo. Iz vsake datoteke bi rad v aktivno datoteko izpisal vrednost določene celice (recimo Cells(9, 4).Value). V prvem stolpcu izpisa naj bi bilo navedeno ime datoteke, v drugem stolpcu pa vrednost posamezne celice iz datotek. Ali je to težko?

lp

Kako v Excelu 2007 preprečimo, da bi samodejno pretvarjal številke v datum? Najbolje kar sistemsko.

lp

Kako enostavno zapolniti vse prazne celice v tabeli z nekim znakom ali številko (npr.: *)?

Imam podatke s katerimi kreiram vrtilne tabele. Ko je tabela narejena, za lažjo predstavo skreiram vtilni grafikon. Problem je, ker vrtilni grafikon skreira krivuljo za vsak stolpec v vrtilni tebeli, jaz pa bi želel na gafikonu imeti prikazane samo določene krivulje. Kako lahko odvečne krivulje iz g...

Ko skreiraš vrtilno tabelo lahko potem s filtrom določaš za katere zapise se bo izpisala vrtilna tabela. Problem nastopi, ko imaš veliko zapisov in moraš prav pred vsakim narediti kljukico. Ali obstaja kakašna drugo označevanje recordov, npr. s potegom miške?

lp A

Kako tiskalnik pri obojestrankem tiskanju pripraviti do tega, da upošteva te nastavitve odsekov?

Deluje. Dosedaj sem excelove formule, vedno izvajal na delovnem listu in jih z VBA samo poganjal. Zapis range in address še nisem uporabljal. Hvala.

Imam stolpec s števili (do 8 mestna). Naslednji stolpec prikazuje število znakov v predhodnem stolpcu. V naslednje stolpce bi želel izpisati vsak znak števila v svojo celico. Izdelal sem makro, ki sicer pravilno prostorsko izpisuje števila, vendar ne izpiše predmetnega znaka, ampak "#IME?". Izpis po...

Mislim, da coda deluje na številkah na tekstu pa ne. Podobno je s to: Sub Premet() Dim defin As Integer Dim vsi As Integer Dim x As Integer x = 11 ' zamik v desno For defin = 2 To 143 ' izbrani projekti For vsi = 2 To 2267 ' vsi projekti If Cells(defin, x).Value = Cells(vsi, x - 8).Value Then Cells(...