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

Příspěvky uživatele

to je přesně ono....taková blbost a jak to pomůže.díky

Je možné v Excelu nastavit pohyb v buňkách abych Tabulatorem přeskakoval jen na určité buňky (vyplnování formuláře)??

díky.plny je pro me všecjny bunky A ažJ ale stačolo by dat podmínku na A kde bude datum.

Ahojte.
prosím o radu.
jak zkopíruju řadky z jednoho sešitu sešit 1 do druhého sešitu2 ?
oba jsem otevřel a zkoušel jsem to takto:
Workbooks("sešit2").Sheets("list1").Range("A3:J500")=_
Workbooks("sešit1").Sheets("list1").Range("A1:J498")
a nic :(
nemluvě o tom že bych rád kopíroval jen plné řádky ale to ted řešit nema cenu

no konkretní přiklad jeste nemam protože to teprve vytvářím.jak píšete od copy-paste to bych vedel ale jak omezit výber jen na neprázdné..tzn. nedelat natvrdo kopíru prvních 20 řádků když zaplněných je jen 18...

potřebuju odeslat z jednoho sešitu "A" do druhého "B" řádky.Ale jen ty na kterých je text( ty jsou zezhora dolu na x-tý řádek).Ale aby to nebylo tak jednoduché nejřív se vždy musí v sešitě "B" vymazat staré a pak teprve nakopírovat nové...

posílááám

no ten tam mam a ten funguje dobre.zatim jsem zjistil že když tam dam podmínku
If Range(Vyplneni(i)) < 2 Then tak to funguje a když tam dam
If Range(Vyplneni(i)) < 20 Then tak to udělá makro hned 7x ( což je počet hlídaných buněk).
Já měl zato že když nebude žádna z buněk <1 tak se ta zpráva neobjeví ale ona vyskočí vždy :(

Tak jsem to poupravil ale ikdyž vyplním všechny políčka tak mi zzpráva naskočí a at zadám ANO či NE tak makro nenaběhne :(

Dim i As Long
Dim Vyplneni()
Dim zprava

Vyplneni = Array("I8", "I10", "I12", "I14", "I16", "I18", "I20")
zprava = MsgBox("Zapomněla jsi vyplnit oblast s názvem: " & vbNewLine & vbNewLine & _
Range(Vyplneni(i)).Offset(0, -7) & " (na řádku: " & Range(Vyplneni(i)).Row & ")" & vbNewLine & vbNewLine & _
"Chceš to i tak odeslat ?", vbYesNo, "chyba")

For i = 0 To 6
If Range(Vyplneni(i)) < 1 Then
Select Case zprava
Case vbNo
Exit Sub
Case vbYes
'nějaky kod
End Select

End If
Next i



End Sub

zdravim
potreboval bych poradit s upravou makra.
potrebuju aby po zadání odpovedi Cancel neproběhlo makro report...

Dim i As Long
Dim Vyplneni()

Vyplneni = Array("I8", "I10", "I12", "I14", "I16", "I18", "I20")

'Overeni vyplneni dat
For i = 0 To 7
If Range(Vyplneni(i)) = "" Then
MsgBox "Zapomněla jsi vyplnit oblast s názvem: " & vbNewLine & vbNewLine & _
Range(Vyplneni(i)).Offset(0, -7) & " (na řádku: " & Range(Vyplneni(i)).Row & ")" & vbNewLine & vbNewLine & _
"Chceš to i tak odeslat ?", vbOKCancel, "Chyba"
If vbYes Then report
Exit Sub

End If
Next i

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "New figures"
.TextBody = strbody
.Send
End With

End Sub

Paráda.přesně jak jsem si představoval a ještě lepší :)
díky moc

druhĂ˝ formulaĹ™

Tak jsem se s tím pral a nic jsem nevymyslel.Prosím jestli by si mi stejným způsobem udělal ještě zbývající formuláře.Snad bych se to podle nich konečně naučil :( jinak je tu navíc u sešitu AGT,buňka K26 a K40 které se kopírují do buňky Q3 a AD3 a u a u KOOR je to buňka K30 do U30....
Klidně se domluvíme a ja ti za to zaplatím...už jsem tak nějak bezradný :(
email: eliasex@seznam.cz

díky moc
tohle (">0")jsem potřeboval

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse