Příspěvky uživatele
< návrat zpět
ahoj,
malounko upraveno "misockovo" makro na šablonu, která byla v příloze
AL je větší já to jen uzpůsobil dle svých a vašich potřeb
dobrý den, upraven ALúv kód pro vaše potřeby
Děkuji za pomoc
merlin tvoje řešení mě sice napadlo také a tímto směrem jsem se nechtěl ubírat věděl jsem že to půjde elegantněji viz ALovo řešení
AL neměl jsem jen tu tabulku ale nic funkčního tvůj kód si již uzpůsobím mockrát děkuji
Dobrý den (ahoj),
již několik dnů se pachtím s makrem a nedaří se mám tabulku kde jsou v řádku datumy a já bych potřeboval vyhledat v tomto řádku aktuální datum a daný sloupec zkopírovat bude se vkládat do extra sešitu kde provádím s daty výpočty ukázka tabulky v příloze děkuji za jakoukoli pomoc
dobrý den, tady makro s vyřešeným podpisem
Dim myOutlook As Object
Dim myMailItem As Object
Dim signature As String
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.createitem(olMailItem)
Rem podpis v html
With otlNewMail
.display
End With
signature = otlNewMail.htmlbody
Rem text zpravy v html
textzpravy = "Dobrý den," & "<br><br>" & "v příloze report za včerejšek"
With otlNewMail
.To =
.CC = " '(email id of cc person)
.Subject = "report - " & Format(Now - 1, "dd.mm.yyyy") 'predmet text + datum -1
.htmlbody = "<html><body>" & textzpravy & signature 'vlastní email
.Attachments.Add ActiveWorkbook.FullName 'přidá přílohu
.display 'zobrazí email .send ihned odesílá
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing
End Sub
dobrý den, řešil bych to vykopírováním dat do pomocné tabulky text do sloupců oddělovač mezera a máte to co potřebujete jinak se dá upravit vzorec od marjankaj vždy o správný počet znaků
jo super díky moc už to funguje :-) moje chyba stale se učím
děkuji za reakci nastuje to podmíněné formátování na jedinečnou hodnotu mezi buňkami bohužel těchto hodnot je asi 40 a prozatím mám zopakovanej 40x kod pro porovnání těchto buněk při použití For i = 4 To 40
Range("B" & i, "M" & i).Select se mi nastaví podmíněné formátování pro buňky "b4:m4" a ne "b4", "m4"
snad již srozumitelnější
Dobrý den,
mám následující kod pro nastavení podmíněného formátování, který sice funguje ale takto nastavuji asi pro 40 buněk a neustále ho kpíruji pod sebe chtěl jsem ho dát do cyklu ale nedaří se vždy se mi označí celý rozsah od sloupe b do m. za každou pomoc děkuji
Range("B4,M4").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlUnique
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
dobrý den,
mé řešeni podpisu a textu
Dim myOutlook As Object
Dim myMailItem As Object
Dim signature As String
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.createitem(olMailItem)
Rem podpis v html
With otlNewMail
.display
End With
signature = otlNewMail.htmlbody
Rem text zpravy v html
textzpravy = "Dobrý den," & "<br><br>" & "v příloze report za včerejšek"
With otlNewMail
.To =
.CC = " '(email id of cc person)
.Subject = "report - " & Format(Now - 1, "dd.mm.yyyy") 'predmet text + datum -1
.htmlbody = "<html><body>" & textzpravy & signature 'vlastní email
.Attachments.Add ActiveWorkbook.FullName 'přidá přílohu
.display 'zobrazí email .send ihned odesílá
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing
End Sub
Dobrý den co to zkusit takto ??
=HYPERTEXTOVÝ.ODKAZ("[HOTOVÝ SYSTÉM - DNEŠNÍ OPEN - 07-13 - 3 dny zpět.xlsb]SVYHLEDAT("Konec";$B$18:$V$3000;1;0))
zkusil bych se podívat ještě tady
http://www.ehow.com/how_7152709_insert-animated-gif-files-excel.html
asi bych zkopíroval jinam a vložil jako hodnoty pak řadil
abyste se toto naučil stačí si zapnout záznam makra provést požadované ukončit záznam makra a kouknout na výsledek nic složitého
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články