Új hozzászólás Aktív témák

• #50381 lappy őstag istvankeresz #50377

  Új Válasz 2023-02-02 12:50:23 #50381

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz istvankeresz #50377 üzenetére

  Vagy a két makró egyben
  Sub mesage()
Dim xRg, xCell As Range
Dim xTxt, xStr As String
Dim xRow, xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Rejtett elemek", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Rejtett elemek"
End Sub

Új hozzászólás Aktív témák