TodayPlus30 = Date + 30
Pwd = "pwd"
With ThisWorkbook.Worksheets("Vertical")
.Unprotect Password:=Pwd
.Cells.Locked = False
For Each cll In .Range("$A$19:$A$448").Cells
If cll.Value >...
Type: Posts; User: p45cal
TodayPlus30 = Date + 30
Pwd = "pwd"
With ThisWorkbook.Worksheets("Vertical")
.Unprotect Password:=Pwd
.Cells.Locked = False
For Each cll In .Range("$A$19:$A$448").Cells
If cll.Value >...
I did consider it and coded something for it but didn't include it in my attachment.
It was one line of code which adds a comment in column L:
Next clm
If PaymentToApply > 0 Then Cells(rw.Row,...
DocElstein, I think the negative numbers in the grid represent the overpayment of the debt in that column. I'm guessing that an amount has been paid off, destined for a specific age of the debt and...
You seem to have done it in the ODI Bat.xlsx file you attached. Is there something missing?
One problem may be that you'll want to use those high scores as numbers (to do calculations or something...
Oh groan, cross posted:
https://www.excelforum.com/excel-general/1408435-help-with-calculating-percentages.html...
One way in the attached is with Power Query output to a pivot table.
The pivot table is based on a transformation done in the background by Power Query (built-in to Excel from version 2016) which...
Where are those pictures? On your hard disk?, a url? somewhere else in the same workbook? Somewhere else?
What version of Excel are you using?
...
Cross posted left, right and centre.
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.eileenslounge.com/viewtopic.php?f=30&t=40533&p=314837#p314837
...
Cross posted left, right and centre.
Doesn't this assume a max of 4 repeated codes?
I was waiting for the OP to come back before posting.
I did a PQ offering. A bit convoluted (I'm sure you can streamline it):
The query:
let
...
What version of Excel do you have?
Does it have to be a formula?
Could it be a user defined function (uses macro/vba but is used just like a normal formula in a cell).
Late in the day, I know. This one looks for strings only (numbers are ignored) in that range:
Sub blah()
Set fs = CreateObject("Scripting.FileSystemObject")
Pth = "D:\Target"
Set f =...
I suspect the csv file has been saved from Excel as a csv file, so Excel has already mangled it.
What version of Excel are you using?
You could record a macro of you using the Text Import wizard,...
Alan,I confirm that those are, and have been, my settings
Alan, no I'm not getting notifications of responses…
This one tries to preserve the leading zeroes (even if there are more than one) being guided by the length of the string directly before the...
We're getting .xls files but his profile shows Office 2016+ so the Power Queries should work.
In general, if someone I've tried to help completely ignores that help, I return the compliment when...
In the attached, update the table on the Old sheet, then on the New sheet, right-click on the table at cell J1 and choose Refresh…
Constraints: No negative numbers in the Code column, all codes...
I don't know if there's any advantage with the following except for it being easy to change whether the source data is in US or UK date format:
let
Source =...
You can also do this with Power Query (Get and Transform Data). See attached, table at cell D2 of the OutputB sheet. Right-click and choose Refresh to update.
It doesn't show anything from entirely...
Another, in D2 of the Result sheet:
=IFERROR(INDEX(Export!D$1:D$8,MATCH($A2 & "¬" & $B2 & "¬" & $C2,Export!$A$1:$A$8 & "¬" & Export!$B$1:$B$8 & "¬" & Export!$C$1:$C$8,0)),"")
copy across and...
The file will retain the setting you give it in Trust Centre (as long as you save it), so that message should no longer pop up.
Try something along these lines:
Private Sub TextBox1_GotFocus()
With TextBox1
.AutoSize = True
.Left = Range("B1").Left
.Top = Range("A356").Top
.Width = 590
.EnterKeyBehavior =...
Check if the attached behaves in an acceptable way (it may not).
Macros nearly always clear the undo stack - there's no avoiding it.
re "the textbox is resized due to entry of texts"; Where and how does the text box get its text from? Maybe we can get it to...
No you haven't. You're still using .Rowheight.
try:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Overall Observation
If Target.Cells.Count = 1 And IsEmpty(Target) Or Not...