• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Paráda, to vyhledávání je super, díky moc! To ukládání u mě opravdu trvá, protože moje tabulka má asi 100 sloupců, progooglil jsem, co se dalo a nenašel jsem možnost něco jako If Textbox1 changed Then Worksheets("LIST1").Cells(Radek, 2) = TextBox1 :) Jako aby si to při ukládání všímalo jen polí, která byla změněna...

Dobrý den,

potřeboval bych trošišku pomoct s jednou podmínkou při použití tohoto makra pro rozplnění buněk, potřeboval bych, aby když bunka, z níž že rozplňuje obsahuje spojení "M-číslo" místo "číslo" je nějaké číslo či písmeno to nebralo jako rozmezí od - do, ale jako samostatnou jednotku, která se rozplní do jedné buňky např M-1011P

Děkuji moc

Sub rozplnit()
Dim retezec$, znak$, kod$
Dim pocetcarek%, pocetpomlcek%, f%, delka%
Dim pocetbunek%, rdk%, slp%

''' dalsi DIM si dopln
retezec = ActiveCell.Value
delka = Len(retezec)
If delka > 0 Then
ReDim X(delka) As Integer
pocetcarek = 0 '' alespon 1 hodnota!
Else
MsgBox ("oznac bunku!")
Exit Sub
End If
pocetpomlcek = 0
'zjisteni pozic "," a "-"
For f = 1 To delka
znak = Mid(retezec, f, 1)
If znak = "," Then
pocetcarek = pocetcarek + 1
X(f) = 1
End If
If znak = "-" Then
pocetpomlcek = pocetpomlcek + 1
End If
Next f
If pocetcarek >= 0 Then
pocetbunek = pocetcarek + 1
ReDim bunka(pocetcarek + 1) As String
ReDim pozice(pocetcarek) As Integer
'''pozice carek
y = 0
For f = 1 To delka
If X(f) = 1 Then
y = y + 1
pozice(y) = f
End If
Next f
''' jednotlive bunky
For f = 1 To pocetcarek
bunka(f) = Trim(Mid(retezec, pozice(f - 1) + 1, pozice(f) - pozice(f - 1) - 1))
Next f
bunka(f) = Trim(Right(retezec, delka - pozice(f - 1) - 1))
''''''''''''''''''''''''''''''''''''''''''''''
''' rozbor bunek '''
''''''''''''''''''''''''''''''''''''''''''''''
rdk = 14
slp = 2
For f = 1 To pocetbunek
kod = Trim(bunka(f))
kdejepomlcka = InStr(kod, "-")
If kdejepomlcka = 0 Then
slp = slp + 1
If slp > 14 Then slp = 3: rdk = rdk + 1
Cells(rdk, slp) = kod
Else
''' vyraz s pomlckou nemusi zacinat cislem!!
''' mohou byt 4 verze: 1234 - 1234A - A1234 - A1234B !!
''' nejdrive najdu pozici prvni cifry
G = 0
Do
G = G + 1
jecislo = IsNumeric(Mid(kod, G, 1))
Loop Until jecislo
doplnek1 = vbNullString
doplnek2 = vbNullString
If G > 1 Then doplnek1 = Left(kod, G - 1)
gg = G
Do
gg = gg + 1
jedalsicifra = IsNumeric(Mid(kod, gg, 1))
Loop While jedalsicifra
pocetcifer = gg - G
cislo1 = Mid(kod, G, pocetcifer)
doplnek2 = Mid(kod, gg, kdejepomlcka - gg - 1)
cislo2 = Mid(kod, kdejepomlcka + G + 1, pocetcifer)
For h = cislo1 To cislo2
slp = slp + 1
If slp > 14 Then slp = 3: rdk = rdk + 1
Cells(rdk, slp) = doplnek1 & h & doplnek2
Next h
End If
Next f
End If
End Sub

Poki, přesně tak, potřeboval bych, aby když Textbox 5 odemknu pro editaci a zadám do něj nějaké číslo třeba ze sloupce 1, aby se ostatní textboxy nalistovali s odpovídajícími údaji, taky se ještě pokouším, aby si formulář při posunu v něm pamatoval změny bez mačkání tlačítka uložit, vyřešil jsem to tak, že při přesunu na následující řádek se data vloží do tabulky, ale to hrozně zpomaluje pohyb ve formuláři, neexistuje nějaké "cookies" pro formulář, aby si to jen pamatoval a finálně pak vložil do tabulky až po kliknutí na tlačítko Uložit?

Díky moc za rady

Ajaj, tak to asi nezvládnu nastavit :( ale to nevadí, takové vyhledávací pole by byla jen taková třešnička na dortu :)....

Aha, díky moc, ve formulářích jsem úplný začátečník :) Ještě si lámu hlavu jak udělat, že při změnění jednoho pole, se k němu změnily odpovídájící pole...prostě jakoby listování třeba po vložení čísla 5 do textového pole a všechny ostatní pole by se mu přizpůsobily

Dobrý den,

snažím se vytvořit formulář, pro mou potřebu už je téměř hotový, jen nevím, jak v něm udělat listování jednotlivými záznamy pomocí posuvníku..tak aby si Textové pole 5 bralo položky čísel z 1. sloupce...nemáte s tím někdo zkušenost?

Díky moc

Je to skvělé, ještě jednou moc děkuji

Ano, těch 32 je maximum

To je opravdu skvělé, děkuji moc, nebylo by ještě nějak možné, aby to umělo přeskakovat prázdné buňky z první tabulky ať už na konci, nebo veprostřed a v druhé tabulce by se čísla řadila za sebou bez ohledu na chybějící čísla?

Bohužel mi nejde vkládat soubory, tak jsem to poslal sem http://www.uloz.to/xRrihgX/rozplneni-xlsx

Dobrý den,

nevěděl by prosím někdo, jak udělat makrem funkci, při které by se čísla z první horizontální tabulky překopírovala do druhé tabulky, ale tak aby začátek rozplňování byl zvolen kliknutím na některou buňku z tabulky?

Posílám v příloze ukázku, moc by mi to pomohlo, děkuji moc za jakoukoliv radu

Děkuji moc, jen jsem pozměnil jeden řádek

List2.Cells(Target.Row, 2) = List1.Cells(Target.Row, Target.Column)

a už mi to funguje přesně jak jsem potřeboval...

Dobrý den,

nevíte, jak by bylo možno na určité rozmezí buněk, třeba F10-F300 nastavit hypertextový odkaz na jiný list excelu.

Když bych kliknul třeba na buňku F12, přepnulo by se mi do Listu2 a v něm by se mi přepsala buňka F12 textem ze stejného řádku v Listu1, kde byl odkaz, o několik sloupců vlevo...

Posílám soubor, těžko se to vysvětluje, díky moc...

Dobrý den,

mám udělané tlačítko, které pomocí makra skryje určité sloupce odpovídající podmínce. Problém a to velký mi nastal ve chvíli, kdy potřebuju toto tlačítko použít ve sdíleném sešitě....zkoušel jsem to takto

Private Sub CommandButton1_Click()

ActiveWorkbook.ExclusiveAccess = False
ActiveSheet.Unprotect Password:="heslo"
ShowCol
Rows("1:1").SpecialCells(xlCellTypeFormulas, 21).EntireColumn.Hidden = True

ActiveSheet.Protect Password:="heslo", AllowSorting:=True, AllowFiltering:=True
ActiveWorkbook.SaveAs Filename, , , , , , xlShared
End Sub

To mi však hází chybu, nevíte, jak to obejít?

Díky moc

Tohle by bylo perfektní řešení a pracuje to skvěle, já ale bohužel následující bunky +1, +2 a +3 mám vždy vzniklé spojením 2 buněk (2 sloupců) a to mi hází chybu, nevíte, zda to jde nějak ošetřit?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse