Příspěvky uživatele
< návrat zpět
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
\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