Příspěvky uživatele

Potřeboval bych zjistit adresu označené bunky a posunout se o 6 vpravo a 3 dolu.

ok, vyzkouším, díky

Mám v bunce vzorec na zjištění dne a podmíněný formát aby zezelenala, když je výsledek sobota.

Potřebuju makrem zjistit/přečíst, barevný formát té buňky s datumem /pokud je zelená=sobota/ a pokud je výsledek ta zelená barva tak chci označit stejnou barvou i jiné buňky.

Je to možné v vba makrem?

Díky za radu.

bunky jsem si označil příkazem :

Range("XFC8:XFC" & PosledniPlnyRadek & ", XFD8:XFD" & PosledniPlnyRadek).Select
Selection.Copy

Vše funguje.
nevěděl by jste ještě, jak obsah označených buněk vložit do Label.caption?
jedná se vždy o dva sloupce a x-počet řádků.

Oblast jsem si označil takto , ale potřebuji její obsah vložit jako text emailu :

'text e-mailu
strBody = "Dobrý den,posílám blabla"
strBody = strBody & "...tady ten výpis obsahu buněk označených" & vbCrLf
strBody = strBody & " S pozdravem" & vbCrLf

jak to udělat? Uložit nějak ten obsah buněk do proměnné?
..nebo třeba do nějakého Label.caption?

P

Může mi někdo vysvětlit jaký je rozdíl, nebo proč a kdy jaký prvek použít:
Běžně si do excel.listu vkládám prvky Formuláře a těm přiřazuji makra.
K čemu jsou prvky aktivX ?
Díky

Děkuju, byl to teda "porod"
Hezký večer

Ok, našel jsem
Range("D8:D11,Y8:Y" & PosledniPlnyRadek).Select

Ale další prkotina, furt vyhazuje chybu když chci obě oblasti definovat s promennou :

Range("D8:D & PosledniPlnyRadek,Y8:Y" & PosledniPlnyRadek).Select

Tady je nutné použít zase jiný styl zápisu ?

Jo, super.
a když chci vybrat dvě nesousedící oblasti:
píšu:

Range("A2:A3,C2:C3").Select ' dvě samostatné, nesousedící oblasti /může jich být i více ??

ale nejde mi to zas s tou proměnnou:
Range("A2:A3", "C2:C" & PosledniPlnyRadek).Select
kde je zrada ?

Nevěděl by někdo ? :

Označím si oblast buněk a tuto chci nacpat do těla emailu mezi definovaný text.

zkouším : ale nepřidá se mi tam ten obsah buněk.
normálně bych bunky označil , CTRL+C a CTRL+V je vložil do textu emailu, ale jak napsat makro?

Sub OdesliEmail()

Dim strAdresa As String, strBody As String, strPredmet As String
Dim TextVložit As String
Dim OutApp As Object, OutMail As Object
Dim strPath As String, strFullPath As String, strNamePDF As String, strManualPath As String

TextVložit = "blablabla"

'adresa
strAdresa = "abcabc@vy.cz"

'předmět e-mailu
strPredmet = "Přidej"

PosledniPlnyRadek = Cells(rows.Count, "A").End(xlUp).Row ' Ve sloupci A
MsgBox "Poslední obsazený řádek má číslo: " & PosledniPlnyRadek
Range("B2", "B" & PosledniPlnyRadek).Select

**tuto oblast chci nacpat do těla textu emailu:**

Text = Range("B2", "B" & PosledniPlnyRadek).select
Selection.Copy
**

'text e-mailu
'strBody = "Dobrý den," & vbCrLf

strBody = strBody & "Text" ??????

strBody = strBody & "Děkuji" & vbCrLf & vbCrLf
strBody = strBody & " S pozdravem" & vbCrLf

Const olMailItem As Long = 0 'je potřebné deklarovat tuto konstantu, tím pádem to nepotřebuje VBA referenci na Outlook 16 nebo 15
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.Display
.To = strAdresa
' If Len(strKopie) > 0 Then .CC = strKopie
.Subject = strPredmet
.body = strBody

' .Attachments.Add strPriloha
' If [Urgent1] = "ANO" Then .Importance = 2

End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Jestli můžu ještě něco.
není mi jasná syntax jak se zapisuje oblast s proměnnou

Potřebuju vybrat :

oblast ActiveSheet.Range("C3:E11").Select ok
oblast s prom. Range("B2", "B" & PosledniPlnyRadek).Select ok

ale jak napsat dvě oblasti s proměnnou ? B2:B3 a C2:C?
Range("B2:B3", "C2:C & PosledniPlnyRadek").Select nejde

P

..máte pravdu, soubor se nepřipnul, nezipoval jsem ho, nevěděl jsem to.
Ale už to asi nebude třeba, studuji ten váš kod, tak se s tím snad nějak poperu.
Děkuji, Děkuji !
P

Super, ten Váš příklad je přesně co chci.

Jen moc nechápu , jak jste docíli toho, že podle vybraného počtu buňek, To pěkně ukládá do listu 2, pod sebe.

Potřeboval jsem v jiném makru docílit vložení nějakých řádků dat, začít od A1, a komplikovaně jsem zjištoval jak to doplňovat pod sebe. Nemáte na to nějakou standartní proceduru ?...nebo je to dané tím , že jste použil"pole"? ..v tom se ztrácím.

tady ten příklad

ad : Nejlépe, když přiložíte svůj konkrétní příklad a co přesně máte v plánu.

Chci docílit toho, že v listu1-seznam lidí si mohu v kterém koliv sloupci označit bunku, a pak další a další, a makro zjistí řádky všech označených buněk a tyto řádky Celé /nebo jen některé sloupce z nich - pokud by to šlo nějak v makru zvýraznit-vyberu si variantu Celý řádek, nebo jen určité sl./ , zkopíruje do Listu 2.
P

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje