thanks for sharing your code. I think it looks a bit more than what you need. Going off your example, if everything is formatted as such, this would be your solution: Option Explicit Sub SplitDateTime() Dim mydate As String, mytime As String, mytime2 As String, i As Long, sht As Worksheet, lastrow As Long Set … Read more
From the Format menu there’s an option for Font Size – by default this is set to 10 but if you make it smaller you can reduce the size of the spreadsheet. Or as recommended by Neil you can delete some/all of the data.
Try this: Private Sub Worksheet_Change(ByVal Target As Range) If Range(“A” & Target.Row) = Range(“B” & Target.Row) Then MsgBox “Buy – ” & Range(“E” & Target.Row) ElseIf Range(“A” & Target.Row) = Range(“C” & Target.Row) Then MsgBox “Sell – ” & Range(“E” & Target.Row) End If End Sub The key is using the Worksheet_Change event in the … Read more
A Pivot Table should do it for you!!
The first thing I do to speed up VBA like this is to use Screen Updating Sub LOOK() Application.ScreenUpdating = False Worksheets(“Input”).Unprotect (“ds12345”) Dim found As Range Set found = Sheets(“Records”).Columns(“D”).Find(What:=ActiveSheet.Cells(3, 13).Value, SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole) If found Is Nothing Then MsgBox “Not found” Else MsgBox “Found on row ” & found.Row End If Dim iRow … Read more
You should use conditional formatting. https://support.office.com/en-ie/article/Quick-start-Apply-conditional-formatting-6b6f7c2a-5d62-45a1-8f67-584a76776d67
Guessing at what OP has not bothered to clarify, maybe, in A3 and copied down: =IF(ISODD(ROW()),A1+1,””)
In general, this is really a not a great question, as it fails the rules of StackOverflow, but still, this is some possible answer, producing this output: Public Sub TestMe() Dim myCell As Range Dim currentCell As Range: Set currentCell = Range(“D1”) Dim rangeToWrite As Range: Set rangeToWrite = Columns(“D:E”) Dim lastRow As Long: lastRow … Read more
This sub procedure works with two variant arrays. Option Explicit Sub Macro3() Dim i As Long, j As Long, nr As Long Dim tmp As Variant, arr As Variant, hdr As Variant, vals As Variant With Worksheets(“sheet4”) tmp = .Cells(1, “A”).CurrentRegion ReDim vals(LBound(tmp, 1) To UBound(tmp, 1), LBound(tmp, 2) To UBound(tmp, 2)) nr = UBound(tmp, … Read more
Something like this: Sub Macro1() Dim Sh1 As WorkSheet, Sh2 As WorkSheet Set Sh1 = Sheets(“Sheet1”) Set Sh2 = Sheets(“ALB1”) Dim R As Long For R = 2 to 127 Sh1.Range(“D” & R & “:E” & R).Copy Sh2.Range(“C” & R – 1) Next R End Sub Or even better: Sheets(“ALB1”).Range(“C1:D126”) = “=Sheet1!D2” Assigning a formula … Read more