Rekommendation på RAM till MSI B650 Gaming Plus WIFI (kanske rek. på mobo också)
Som rubriken säger, behöver rekommendation på ram för ett MSI B650 Gaming Plus WIFI.
Har kikat på MSI B650 Gaming Plus WIFI + Corsair 32GB (2x16GB) DDR5 6000MHz CL30 Vengeance
Finns det något bättre kombo i samma prisklass eller är det dugligt?
Sub CopyToClipboard()
Dim doClip As DataObject
Dim sText As String
Dim rCell As Range, rRow As Range
Dim rSrc As Range
Set doClip = New DataObject
Set rSrc = Blad1.Range("B24:B42")
For Each rRow In rSrc.Rows
For Each rCell In rRow.Cells
sText = sText & rCell.Text & vbNewLine
Next rCell
Next rRow
doClip.SetText sText
doClip.PutInClipboard
Set doClip = Nothing
End Sub
Tack för era svar.
Jag är inte helt bra på programmering så tar inte åt mig :).
Att bara köra enligt Elgots exempel uppnår inte riktigt det resultat jag önskar, det är samma effekt som att markera och kopiera celler i Excel. Så fort man trycker esc eller gör något annat så försvinner informationen från clipboard.
Att använda MSForms.DataObject är ett sätt att få in information i "riktiga" clipboard så att jag kan stänga excel och fortfarande ha kvar datan i clipboard. Men onekligen så behärskar jag inte detta tillräckligt bra för att få någon ordning på det.
Har testat skriva om scriptet lite den klarar av att markera området och så, men den verkar inte vilja förstå att det är vanlig text i cellerna som jag vill kopiera.
Excelmakro för att kopiera ett område till "clipboard"
Halloj.
Har lite bekymmer med ett excelmakro som skall kopiera ut en större del av ett blad till "clipboard".
Kör jag detta macro så funkar det bra :
Sub CopyToClip()
Dim objData As New MSForms.DataObject
Dim strText
strText = Worksheets("Blad1").Range("B2").Text
objData.SetText strText
objData.PutInClipboard
End Sub
Det stom står i Cell B2 hamnar i "clipboard" och jag kan kopiera in det var som.
Men ändrar jag Range("B2") till Range("B2: D3") så får jag bara error "Körfel nr '94'.: Ogiltigt användning av Null."
Jag förstår inte vad jag gör fel. Har testat ned Range("B2: D3"), Range("B2":"D3"), Range("B2;D3"),Range("B2,D3"), Range(B2,D3) osv men får det inte att funka.
Är det något som vet/ser vad jag gör för fel? Det är alltid samma cellområde som skall kopieras.
Jag kör en RPi med OpenElec (http://openelec.tv/) och det funkar klockrent, har inga problem att spela varken 480p, 720p eller 1080p.
Inte heller gamla vanliga klassiska xvid och divx fungerar klockrent.