gd morning can please correct this gor me, and i am new in this VBA Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim G As Integer Dim varno As Long On Error Resume Next Dim myRow As Range With Sheet1 'Range("I5").Select 'Selection.AutoFill _ Destination:=Range("I5:I30"), Type:=xlFillDefault 'Application.ScreenUpdating = true '.Range("$L$12") = "= .Range("$I$5") = "=IF{AND[F5="",G5="",H5=""},"",I4+F5-G5-H5}" Range("I30").Formula = "= (Balance)=SUM(F4:F30)=SUM(G4:G30)=SUM(H4:H30)=SUM(F30-G30-H30)"
'Application.ScreenUpdating = true End With 'End If End Sub thank for your help
I've been looking for this solution for hours and you saved me from my presentation to my client. Thank you!
the best solution to get filename, thankyou so much
solucionou meu problema, obrigado!
Great Code Its working for my project
Thanks
Great job buddy thank you for the code.👌💪❤️👍
Welcome
Nice example. Thank you
Thank You So Mutch Sir.
How to give cell reference for file name when we are extracting bulk file
While cancel the action, it is showing as False. How to fix?
ok
gd morning can please correct this gor me, and i am new in this VBA Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim G As Integer
Dim varno As Long
On Error Resume Next
Dim myRow As Range
With Sheet1
'Range("I5").Select
'Selection.AutoFill _
Destination:=Range("I5:I30"), Type:=xlFillDefault
'Application.ScreenUpdating = true
'.Range("$L$12") = "=
.Range("$I$5") = "=IF{AND[F5="",G5="",H5=""},"",I4+F5-G5-H5}"
Range("I30").Formula = "= (Balance)=SUM(F4:F30)=SUM(G4:G30)=SUM(H4:H30)=SUM(F30-G30-H30)"
'Application.ScreenUpdating = true
End With
'End If
End Sub
thank for your help
this code seems to be recorded. You can share your code at exceldestination@gmail.com. I will try to correct it.