Příspěvky uživatele


< návrat zpět

Něco takového?

Do Until ActiveCell.Value = Empty
i = MsgBox("Je to muž?" & Chr(13) & Chr(10) _
& "SML: " & Cells(ActiveCell.Row, 1) & Chr(13) & Chr(10) _
& "Jméno: " & Cells(ActiveCell.Row, 2) & Chr(13) & Chr(10) _
& "Příjmení: " & Cells(ActiveCell.Row, 3), vbYesNoCancel, " pokračovat")
Select Case i
Case vbNo
MsgBox "Dopln_zena"
Case vbYes
MsgBox "Dopln_muz"
Case vbCancel
Exit Do
End Select
ActiveCell.Offset(1, 0).Select
Loop

Kdyby to náhodou někomu pomohlo, podělím se i o zbytek:

já vím, že s budu vymýšlet moc, ale risknu,to:)
Po stisknutá klávesové zkratky by to mělo udělat několik kroků:
1: Načíst hodnoty z označení buněk
2: Ty hodnoty vložit do komentáře u stejné buňky (pokud už existuje u některé z vybraných komentář, tak přidat na další řádek)
3: Za tu hodnotu vložit jméno z řádku druhé označené buňky
4: Hodnoty v buňkách vzájemně prohodit

Je to soubor s plánovanými směnami a učel je ten, aby se zaznamenaly do komentářů prohozené směny (původní směna, s kým byl vyměněno, kdo vyměnil-místo Owner přihlášený uživatel-to se ale doplní samo při přidání komentáře)

Každopádně kdyby se ti do toho už nechtělo, tak moc děkuju i za tohle makro, třeba s pomocí dalších to dáme dohromady

Ahoj,
prosím excel-machry o pomoc s makrem.
Makro by mělo po stisku kl.zkratky umět u dvou označených buněk (vždy na jiném řádku) ke každé buňce vložit komentář (případně k existujícímu komentáři přidat) hodnotu buňky (text) a text ze sloupce A u druhé označené buňky a k tomu aktuální datum změny(vložení komentáře), a potom hodnoty označených buněk prohodit.

Výsledek by měl vypadat jako v příloze
Děkuju všem za pomoc


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje