Čo si to tu napísal? To má byť kód? Máš tam trikrát
Private Sub Cb3_Click()
a END SUB som ani nepozeral.
citovat
Private Sub Cb3_Click()
a END SUB som ani nepozeral.
citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Dvě podmínky
MS Excel
Téma: Dvě podmínky 
Zaslal/a lajos 17.4.2013 18:40
Zdravím,
potřeboval bych pomoci s tímto problémem.
Ukládám data na list"Archiv" podle zatržených Checkboxů.Tedy,když je zatržen Checkbox1,tak spust makro"Uloz_11".Když Checkbox2,tak spust Uloz_22 atd.
Všechno jde na List"Archiv".To je v pořádku.
Nyní nastala potřeba některá data ukládat jinam.Občany na list "Archiv" a firmy zvlášt na list"ArchivFirmy".Tak jsem si udělal Checkbox4,který aktuvuji podle obsahu Textboxu"T3".A tím bych chtěl určit,že se to musí uložit podle stejných podmínek,ale na list"ArchivFirmy"
Zlobí mě to.Ukládá to na oba dva listy najednou,nebo dva záznamy pod sebe atd.
Private Sub Cb3_Click()
If T3.Value = "Neuvedeno" Then
Call uloz_111 'mělo by uložit na list ARCHIVFIRMY
ElseIf CheckBox1 = True Then
Call uloz_11 'mělo by uložit na list ARCHIV
Else: Call uloz_11
End If
Call Doklad_zelezo
Private Sub Cb3_Click()
If T3.Value = "Neuvedeno" Then
Call uloz_111 'mělo by uložit na list ARCHIVFIRMY
ElseIf CheckBox1 = True Then
Call uloz_11 'mělo by uložit na list ARCHIV
Else: Call uloz_11
End If
Call Doklad_zelezo
Private Sub Cb3_Click()
If T3.Value = "Neuvedeno" Then
Call uloz_111 'mělo by uložit na list ARCHIVFIRMY
ElseIf CheckBox1 = True Then
Call uloz_11 'mělo by uložit na list ARCHIV
Else: Call uloz_11
End If
Call Doklad_zelezo
If CheckBox2 = True Then
Call uloz_21
Call Doklad_měd
End If
If CheckBox3 = True Then
Call uloz_31
Call Doklad_hlinik
End If
Unload Me
Unload UserForm3
Unload UFspustit_korekci
End Sub
If CheckBox2 = True Then
Call uloz_21
Call Doklad_měd
End If
If CheckBox3 = True Then
Call uloz_31
Call Doklad_hlinik
End If
Unload Me
Unload UserForm3
Unload UFspustit_korekci
End Sub
If CheckBox2 = True Then
Call uloz_21
Call Doklad_měd
End If
If CheckBox3 = True Then
Call uloz_31
Call Doklad_hlinik
End If
Unload Me
Unload UserForm3
Unload UFspustit_korekci
End Sub
V případě potřeby zkusím vysvětlit podrobněji.
Děkuji za případnou pomoc.
Taky koukám,že se to nějak splašilo:-)
Takhle to má být.Omlouvám se.
Private Sub Cb3_Click()
If T3.Value = "Neuvedeno" Then
Call uloz_111 'mělo by uložit na list ARCHIVFIRMY
ElseIf CheckBox1 = True Then
Call uloz_11 'mělo by uložit na list ARCHIV
Else: Call uloz_11
End If
Call Doklad_zelezo
If CheckBox2 = True Then
Call uloz_21
Call Doklad_měd
End If
If CheckBox3 = True Then
Call uloz_31
Call Doklad_hlinik
End If
Unload Me
Unload UserForm3
Unload UFspustit_korekci
End Subcitovat
Takhle to má být.Omlouvám se.
Private Sub Cb3_Click()
If T3.Value = "Neuvedeno" Then
Call uloz_111 'mělo by uložit na list ARCHIVFIRMY
ElseIf CheckBox1 = True Then
Call uloz_11 'mělo by uložit na list ARCHIV
Else: Call uloz_11
End If
Call Doklad_zelezo
If CheckBox2 = True Then
Call uloz_21
Call Doklad_měd
End If
If CheckBox3 = True Then
Call uloz_31
Call Doklad_hlinik
End If
Unload Me
Unload UserForm3
Unload UFspustit_korekci
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články