Pls check...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not myrow > 1 Then MsgBox "Pls re-login.", vbCritical: login: Exit Sub
If Not IsArray(bChange) Then
If Target.Cells.Count = 1 Then
If Not Application.Intersect(Target, Cells()) Is Nothing...
Iinsanesmart
Sorry as it was mY silly mistake & love to solve the same.
Pls change the below & check.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not myrow > 1 Then MsgBox "Pls re-login.", vbCritical: login: Exit Sub
If Target.Cells.Count > 1 Then
GoTo...
I am excited to hand on these new party movers in the excel, It will also ease the few cases where one having a sophisticated view on CSE.
https://techcommunity.microsoft.com/t5/Excel-Blog/Preview-of-Dynamic-Arrays-in-Excel/ba-p/252944
You can directly do the same from Excel with word. Do a search as we have lot's of post regarding the same.
Share sample Excel, Word/PDF and email if having no luck.
Pls check it.
Option Explicit
'////////////////////////////////////////////////////////////////////
'Password masked inputbox
'Allows you to hide characters entered in a VBA Inputbox.
'
'Code written by Daniel Klann
'March 2003...
Hi,
If you receive an error that reads The transport failed to connect to the server, make sure you’ve entered the correct username, password, SMTP server, and port number in the lines of code listed underneath With SMTP_Config
Hi,
Why there are too many sheets for same type of dashboard, why not just setup a dropdown or similar for regional dashboard and same needs to be follow in Week report too.
This exercise will curb your all issue & you just need to select the week number for final output.(via VBA)
For the .parent property
http://spreadsheetpage.com/index.php/tip/understanding_object_parents/
https://msdn.microsoft.com/en-us/library/office/aa224980(v=office.11).aspx
Ways of Referring To Cell Ranges
https://powerspreadsheets.com/excel-vba-range-object/
Hi @jayalaxmi ,
Good to see you after a long time.
As GraH - Guido suggested! First do the makeover at excel end and then auto transfer the same to PPT via VBA.
If you relies at PPT to xl refresh then there might be chances of data errors due to many things.
I am sharing a sample approach...
Or i will go with it to avoid object.
Option Explicit
Option Compare Text
Sub Rng_in_var_Pass_In_formu()
Dim strF As String
With ActiveSheet.Range("A1").CurrentRegion
strF = "=SUMPRODUCT(SUMIFS(" & .Columns(5).Address & "," & .Columns(2).Address & ",{"
With .Parent.Range("E" &...
Check it.
Option Explicit
Option Compare Text
Sub Rng_in_var_Pass_In_formu()
Dim oRresultCell As Range, r1 As String, r2 As String
With ActiveSheet.Range("A1").CurrentRegion
r1 = .Columns(5).Address
r2 = .Columns(2).Address
Set oRresultCell = .Parent.Range("E" & .Rows.Count + 3)...
Check it.
Option Explicit
Option Compare Text
Sub Rng_in_var_Pass_In_formu()
Dim oRresultCell As Range
Const iResult1Cell = 154
With ActiveSheet.Range("B1:F" & iResult1Cell - 3)
Set oRresultCell = .Parent.Range("E" & iResult1Cell)
oRresultCell.Formula = _...