Aktív témák
-
eM'82
addikt
Sziasztok!
Nemtom tudtok-e benne segíteni...
a téma adott:
Van rá vmi függvény, v makró (habár ebben nem vagyok annyira jártas, de végső esetben bepróbálkoznék) amivel egy adott cellának a megjegyzésébe beírt szöveget egy másik (pl: mellette lévő) cellába át lehet / ki lehet másolni?
ötletek? -
eM'82
addikt
nem erre gondoltam...
hanem a megjegyzésben lévő szöveg tartalmát textben egy szomszédos cellába, de egyébiránt már meg is oldottam makróval...
-----------------------------------------------------------------
Sub ShowCommentsNextCell()
'based on code posted by Dave Peterson 2003-05-16
Application.ScreenUpdating = False
Dim commrange As Range
Dim mycell As Range
Dim curwks As Worksheet
Set curwks = ActiveSheet
On Error Resume Next
Set commrange = curwks.Cells _
.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If commrange Is Nothing Then
MsgBox ''no comments found''
Exit Sub
End If
For Each mycell In commrange
If mycell.Offset(0, 1).Value = '''' Then
mycell.Offset(0, 1).Value = mycell.Comment.Text
End If
Next mycell
Application.ScreenUpdating = True
End Sub
-----------------------------------
Azért köszke,
TOPIC zárható
Aktív témák
- Call of Duty: Modern Warfare III (2023)
- Gaming notebook topik
- Politika
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- LEGO klub
- Na, még egyszer, csak ezúttal OnePlus Open néven
- Honor Magic5 Pro - kamerák bűvöletében
- Itt az első kép a 2024-es Nokia 3210-ről
- Mibe tegyem a megtakarításaimat?
- eBay-es kütyük kis pénzért
- További aktív témák...