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

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.

Zaslat odpověď >

---

marjankaj(17.4.2013 19:11)#012956

Č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

lajos(17.4.2013 19:16)#012957

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

lajos(18.4.2013 11:53)#012972

Zdravim,
tak jsem to dal:-)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse