Posts by erd0w
-
-
tekrar tekrar Hi to all experts, i am trying to update my workbook with multiple sheets. All sheets are same and linked to another workbooks different sheets. What i need is a code which unprotect all sheets and ask for update link and after user sellect the updated workbook it must update all data on all unprotected sheets and then protect all sheets with same password again. (pages sholuld be locked again before the user can make any changes to the pages) Thanks in advance.. Erdem..
-
[xpost]
[/xpost]
Hi to all experts,
i have a file with multiple sheets with same format and it subtracts automatically C-D using vba and puts the answer E when i paste new data on it
What i want to do is apply this vba code to F-G=H and I-J=K and P-Q=R on each sheet but couldn't
I use this for consolidating datas which i get every month from branches and i just want to copy and paste whole sheet at once (not column by column) whitout controlling if there are any wrong formulas on it..
I couldnt attach my exact file but have a wetransfer link for it.
andThere is two code on each sheet, one is,
CodePrivate Sub Worksheet_Change(ByVal Target As Range) Dim LastRw As Long LastRw = ListObjects(1).DataBodyRange.Rows.Count + 10 'Last table row + 10 If Not Intersect(Target, Range("C11:d" & LastRw)) Is Nothing Then Call CminusO(LastRw) End If End Sub
second code is like that,
Code
Display MoreSub CminusO(LastRw As Long) Dim LastE As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False LastE = Cells(Rows.Count, "E").End(xlUp).Row Range("e11:e" & LastE) = vbNullStr 'clear any stray E data below table if exists? Range("e11:e" & LastRw) = Evaluate("C11:C" & LastRw & "-d11:d" & LastRw) Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub
Thanks a looottt in advance.
Best regards..