92C degrees temp when running macros LOL

[ilovepizza82]

@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 ?

The 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.

CS

Thanks CS Ill have a look.

[ODPaul82]

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