Příspěvky uživatele

Dobrý den,

měl bych dotaz ohledně možnosti založení souboru.xls pomocí makra??

Mám funkční makro na prohledávání souborů a na konci bych chtěl založit nový soubor do kterého nakopíruji prohledávané soubory, je to ve VBA možné???

Dobrý den,

tak jsem vaše programy odzkoušel ale nějak mi program nefunguje.

Výběr složky je výborný, ale hypertextové odkazy nefunguje. Umím ho vložit jedním způsobem a ten ve Vaší konstrukci nefunguje. Pokoušel jsem se to předělat ale program je na mne trochu moc složitý

.

Soubory které bych potřeboval vybírat jsou excelovské soubory ale nemají všechny stejnou příponu.

Děkuji moc, za pomoc. Byl jsem mimo ČR takže se omlouvám za pozdní reakci. Odzkouším to a dám vědět.
Ještě jednou moc díky.

Adresář znám resp. nadřazený -> je souborů je mnoho a jsou umístěny v několika adresářích.

Dobrý den, mám sešit ve kterém jsou názvy souborů které bych potřeboval vyhledat na disku a pokud jsou dostupné tak načíst jejich cestu do pomocné proměnné. Makro by následně mělo vytvořit hypertextový odkaz ale to už zvládám. díky za pomoc

Dobrý den,

mám problém s kontrolou otevření souboru. Makro které mám

Mockrát děkuji už jsem to rozchodil.

Ještě jeden krátký dotaz: když vkládám hodnotu jak omezím její velikost-> hodnota:4566785323 požaduji pouze první 4 čísla -> požadovaný výsledek 4566.

Aha takže tato konstrukce mi rozloží danou proměnou a když potřebuji vytvořit podmínku, lze použít aText jako do IF aby mi to v případě že je v něm GG poslalo program jednou větví a v případě že je prázdný druhou větví???
Předpokládám že pokud je proměnná pouze číslo aText zůstane prázdný??

Takhle vypadá program:
Sub tlačítko1_Klepnutí()
Dim I, pocetRadku As Integer

pocetRadku = Range("A1").End(xlDown).Row

RadekKam = 16

Cislo1 = 0

For I = 1 To pocetRadku
If Cells(I, 1).Value = "R" Or Cells(I, 1).Value = "T_MASTER_STR.ROZPAD" Then
RadekKam = RadekKam + 2
If Cells(I, 1).Value = "R" Then
Cislo1 = Cislo1 + 1
Cislo2 = 1
End If

Else
NazevSoucasti = Cells(I, 5).Value
Pozice = Cells(I, 2).Value
CisloVykresu = Cells(I, 3).Value
PocetKusu = Cells(I, 6).Value
Hmotnost = Cells(I, 11).Value

Worksheets("SE-TEC").Activate
Cells(RadekKam, 3).Value = CStr(Cislo1) + "." + CStr(Cislo2) + ")"
Cells(RadekKam, 4).Value = NazevSoucasti + " (poz." + CStr(Pozice) + ")"
Cells(RadekKam, 5).Value = PocetKusu
Cells(RadekKam, 6).Value = Hmotnost
RadekKam = RadekKam + 1

TestString = CisloVykresu
If Left(TestString, 2) Then
Cells(RadekKam, 4).Value = "ČSN" + CisloVykresu

aText = Left(TestString, 2)
bCislo = Mid(TestString, 3, Len(TestString) - 2)
Else
Cells(RadekKam, 4).Value = CisloVykresu
End If
RadekKam = RadekKam + 1
Worksheets("Data z AGILE").Activate
Cislo2 = Cislo2 + 1
End If
Next I

Worksheets("SE-TEC").Activate

End Sub

No tak zatím to moc nefunguje.
Jsem ve VBA začátečník tak se možná budu ptát hloupě.

Do TestString nahrajeme hodnotu z pole 1;1??

Poté testujeme TestString do aText???
aText = Left(TestString, 2) provede co??

bCislo = Mid(TestString, 3, Len(TestString) - 2) provede co??

Díky za radu pokusím se to nějak implementovat.

Dobrý den,

mám ve VBA pro excel napsané makro na převod dat z jedné tabulky do druhé. Problém nastal v okamžiku kdy jeden sloupec obsahuje dva druhy dat. Jeden je text plus čísla a druhý pouze čísla. Mohl by mi někdo poradit jak při čtení nebo zápisu data rozdělit???
Ideálně pokud bude číslo udělat A pokud začíná textem udělat B.

Předem moc děkuji

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje