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

• #40464 Mutt senior tag Laciahegyrol #40463

  Új Válasz 2019-03-20 12:55:53 #40464

  Ú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

  

  Mutt

  senior tag

  válasz Laciahegyrol #40463 üzenetére

  Szia,

  Én nem tudok ilyen beállításról. Nekem egy cella tartalmát rendesen másolja át a Ctrl+C és Ctrl+V páros,

  pl. a 40.00 Ft-ot egy form-ba, vagy egy mezőbe simán másolja formázva.

  

  Ahol gond lehet az amikor több cellát akarsz másolni, mert akkor már táblázatként viszi át ami el tudja rontani a dolgokat.

  Ebben a példában a formon táblazatos formátum kezelhetetlen, de a több mezőt tartalmazó táblázatban (jobb oldlat) rendben van.
  

  Esetleg próbáld meg ezt a makrót, ami a kijelölt tartomány celláinak a formázott értékét egy hosszú szövegbe helyezi át.

  Sub SAP_Copy()
Dim szoveg As String
Dim cella As Range
Dim sor As Long

szoveg = ""
sor = 0

For Each cella In Selection
If sor <> cella.Row And sor > 0 Then
szoveg = szoveg & vbNewLine
End If

szoveg = szoveg & cella.Text & " "
sor = cella.Row
Next cella

Call CopyText(szoveg)

End Sub


Sub CopyText(Text As String)
'VBA Macro using late binding to copy text to clipboard.
'By Justin Kay, 8/15/2014
Dim MSForms_DataObject As Object
Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
MSForms_DataObject.SetText Text
MSForms_DataObject.PutInClipboard
Set MSForms_DataObject = Nothing
End Sub

  üdv

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