Příspěvky uživatele

Dalším, ale asi podobným problémkem je datum, potřebuji aby se mě přes texbox uložila data do buňky jako číslo (nebo přesněji jako formát př. 25. únor 2013), je na to nějaký fígl jak to udělat?

Super, díky moc:-) Ještě se zeptám. Změnil jsem data, která bude načítat combo na formát času př 6:00. Tento formát combo načte, ale uloží ho jako text asi. Lze nějek nastavit, aby údaj z comba ukládal jako číslo, nikoliv text?

Zdravím...Vlákno kde se toto řešilo je již zamknuté, proto zakládám nové:-( Narazil jsem problémek při vkládání nového záznamu. Nyní je to nastavené tak,že se všechny veškeré záznamy posouvají postupně o řádek dolů a nový záznam je následně vložen na uvolněný 3 řádek. Bohužel při více záznamech je to velice zdlouhavé. Napadlo mě, zda by nešlo, aby se se místo posunu všech záznamů vytvořil na začátku seznamu nový řádek? Je to tak reálné? Děkuji za případnou pomoc...Martin

Super, díky moc:-)

Ještě taková maličkost. Vložil jsem do UF ComboBox a potřeboval bych aby načetl data (A1:A5) z listu Typ a následně byl výběr z comba uložen rovněž do listu odběratel. Prosím o pomoc...předem díky

Klobouk dolů, funguje dle představ, děkuji. Jen ten "error" ohledně dosaženého počtu řádků tam asi nevyužiji. Ještě jednou díky moc

Zde je ukázka s UserFormem

Ahoj, potřeboval bych poradit s níže uvedeným kódem. Nyní je nastaveno, že se data z UF uloží na další volný řádek. Lze nastavit, aby se nový zápis zapsal na první řádek a starší data se posouvala dolů. Je to možné? Díky za radu.

Private Sub CommandButton1_Click()
Dim list As String
list = ActiveSheet.Name

Sheets("Odběratel").Select
Dim Pocet_zaznamu, A, Novy_zaznam As Integer
Dim start, nazev, jmeno, ulice As String

Pocet_zaznamu = 490000
start = 1

For A = 1 To Pocet_zaznamu

nazev = Cells(start, 1)
jmeno = Cells(start, 2)
ulice = Cells(start, 3)
mesto = Cells(start, 4)
psc = Cells(start, 5)
telefon = Cells(start, 6)
ic = Cells(start, 7)
dic = Cells(start, 8)
Email = Cells(start, 9)
web = Cells(start, 10)

If nazev <> "" Or jmeno <> "" Or ulice <> "" Or mesto <> "" Or psc <> "" Or telefon <> "" Or ic <> "" Or dic <> "" Or Email <> "" Or web <> "" Then
start = start + 1
Else
Novy_zaznam = start
'MsgBox "Nový řádek = číslo " & start
GoTo 1
End If
Next A
1: 'MsgBox "Nový řádek = číslo " & start
If nazev_f = "" Then
Odpoved = MsgBox("Musíš zadat název odběratele", vbInformation + vbOKOnly, "Pozor")
nazev_f.SetFocus
If Odpoved = vbOK Then Exit Sub
Else
End If

If nazev_f = "" Then
Cells(start, 1) = "---"
Else
Cells(start, 1) = nazev_f
End If

If jmeno_f = "" Then
Cells(start, 2) = "---"
Else
Cells(start, 2) = jmeno_f
End If

If ulice_f = "" Then
Cells(start, 3) = "---"
Else
Cells(start, 3) = ulice_f
End If

If mesto_f = "" Then
Cells(start, 4) = "---"
Else
Cells(start, 4) = mesto_f
End If

If psc_f = "" Then
Cells(start, 5) = "---"
Else
Cells(start, 5) = psc_f
End If

If telefon_f = "" Then
Cells(start, 6) = "---"
Else
Cells(start, 6) = telefon_f
End If

If ic_f = "" Then
Cells(start, 7) = "---"
Else
Cells(start, 7) = ic_f
End If

If dic_f = "" Then
Cells(start, 8) = "---"
Else
Cells(start, 8) = dic_f
End If

If email_f = "" Then
Cells(start, 9) = "---"
Else
Cells(start, 9) = email_f
End If

If web_f = "" Then
Cells(start, 10) = "---"
Else
Cells(start, 10) = web_f
End If
Unload NovaEvidence

Worksheets(list).Activate

End Sub

Ještě, že to bylo v hlavě:-) Teď už je to ok

Super,
dvě hodky práce v čudu. Tak to musím udělat znova. Dík za info

Opět potřebuji trošku postrčit. Potřeboval bych poradit s jednou maličkostí. Viz příloha: Tlačítko, které by mělo otevřít UF má podmínku že dle zaškrtnutého ceníku 1,2 a 3, otevře UF 1, 2 a nebo 3. Toto je v pohodě a funkční, jen tam potřebuji vložit další podmínku a to je zobrazení UF s upozorněním, když nebude zaškrtnut ani jeden ceník. Nevím jak podmínku vložit. Můžete někdo poradit a případně se mrknout do přílohy, zda je vše napsané správně. Můj první samostatnej pokus o programování a nejsem si jist, že je vše OK. Díky Martin

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje