Thanks CS Ill have a look.Crazyskier wrote: ↑Sat Jul 03, 2021 11:42 amThe cooler master one I use is tried and tested in the gaming community. It's fully sealed with no top-ups required and a very, very low fail rate.I do a lot of gaming with a GEFORCE RTX (ray-tracing) graphics card which was recommended with water cooling for my gaming desktop - which I also use for multiple automation instances open at one time. It's served me well for around 18 months thus far.ilovepizza82 wrote: ↑Sat Jul 03, 2021 4:04 am
@Crazyskier, Good advice but Ive just bought that one above and also I read a lot that water pump is a dangerous thing to have when it fails. It may seriously damage your CPU when it does fail and i read they break very often so i dont know. How long have you had yours ?
CS
92C degrees temp when running macros LOL
- ilovepizza82
- Posts: 493
- Joined: Thu Nov 02, 2017 3:41 pm
- Location: Sewers
- Contact:
Try giving the following a whirl, the premise is to copy the cells that you have selected into memory, reserve a seperate section of memory plus whatever the additional gaps & intervals are then shifts the data to the newly reserved part but just jumping when it hits an interval
Code: Select all
Sub InsertSpacing()
Dim lngGaps As Long
Dim lngInterval As Long
Dim strInput As String
Dim varValues() As Variant
Dim varOutput() As Variant
Dim rOut As Long, lngInterCnt As Long
Dim r As Long, c As Long
Dim objOutputRng As Excel.Range
Dim lngRows As Long
lngInterval = mlngSanityCheck("Enter row interval:")
lngGaps = mlngSanityCheck("How many rows to insert at each interval:")
varValues = Selection.Value
' Calculate size new array needs to be
lngRows = UBound(varValues, 1) + ((lngInterval * lngGaps) * 2)
ReDim varOutput(1 To lngRows, 1 To UBound(varValues, 2))
rOut = 1
lngInterCnt = 1
For r = LBound(varValues, 1) To UBound(varValues, 1)
For c = LBound(varValues, 2) To UBound(varValues, 2)
varOutput(rOut, c) = varValues(r, c)
Next c
If lngInterCnt = lngInterval Then
rOut = rOut + lngGaps + 1
lngInterCnt = 1
Else
rOut = rOut + 1
lngInterCnt = lngInterCnt + 1
End If
Next r
' get first cell in range, resize to be size of array and paste
Set objOutputRng = ActiveCell
Set objOutputRng = objOutputRng.Resize(rOut - 1, UBound(varValues, 2))
objOutputRng.Value = varOutput
Set objOutputRng = Nothing
End Sub
' Returns 1 if invalid value entered
Private Function mlngSanityCheck(ByVal pstrPrompt As String) As Long
Dim strInput As String
Dim lngRtn As Long
strInput = InputBox(pstrPrompt, , 1)
If IsNumeric(strInput) Then
lngRtn = CLng(strInput)
If lngRtn < 1 Then lngRtn = 1
mlngSanityCheck = lngRtn
Else
mlngSanityCheck = 1
End If
End Function