Posts by ashu1990

Re: Adding \ (Backslash) symbol in VBA code promblem

try this

Sub test()
Dim obj As Object
Dim path As String
Set obj = CreateObject("Shell.Application").browseforfolder(0, "Please Select Folder", 0)
On Error GoTo error_trap:
path = obj.self.path & "\"
MsgBox path
error_trap:
End Sub

Re: Compile Error:automation error in vba

yes the other code works fine on the VMware PC but the macro created does not work over there.

Re: Compile Error:automation error in vba

its not citrix but its a like citrik application its called VMware player. which is used to take pc from other locaion on remote.

Re: Compile Error:automation error in vba

yes i did but didn't stated any missing reference
i checked the activeX trust settings and its set as usual nothing's changed.
Is there any possibility of an administrator to lock down or block the activex codes from running?
or is there any thing i have missed i have done an excel acess automation where i have used activex 2.8 library
the error focus on the declaration of the connection
dim con as adodb.connection
but as when i started to type a new delaraction it stooped on ADODB after that the .connection (child) didn't appeared is there any problem?

Re: Compile Error:automation error in vba

Quote from cytop;669537

The machine actually running the code does not have some component(s) installed.

That's all that can be said based on the information you have supplied.

Thanks for the reply cytop..

I checked the refrences and did not found any missing refrences can you tell me what are the components that went missing or give me and idea where i should bang my head on..

Hi guys,

i am stuck with an error where the macro work fines into my pc but tried to test into client pc it gave me an error
Compile Error:automation error as i am running the macro inside a VM player (eg:- critix type) which are used here.

nothing works as soon as i press the run button the error pops up.

i tried searching it on others forums as well as this but didn't got the answer
can any one state me the reason for this error..

Re: SaveAs Problem.

look for the csv file format name

ActiveWorkbooks.SaveAs Filename = InpFilNam ,FileFormat:=xlCSV

Re: Excel VBA macro to reply to selected Outlook email

first you have to get the selected mail and then make a reply to it for selection of current opened mail or selected mail please see below link
http://stackoverflow.com/quest…rent-active-or-open-email
Hope this helps..

Re: Path not found

i didnt found any error in your code its working fine for me
check if you missed C: or D: in your path or create a script for choosing the path
i have made some changes in the code hope this helps

Sub ListNetwork()
    Dim objFolder As Object
    Dim objFile As Object
    Dim objFSO As Object
    Dim f(6) As String
    Dim shapp As Object
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set shapp = CreateObject("Shell.application").browseforfolder(0, "Please select path", 1)
    f(1) = shapp.self.Path
    dir1 = f(1)
    Set objFolder = objFSO.GetFolder(dir1)
     
     'Loop through the Files collection
    For Each objFile In objFolder.Files
        n = n + 1
        Cells(n) = objFile.Name
        Cells(n + 3, 2) = Cells(n)
    Next
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
End Sub

Re: ComboBox's linked loop Crash HELP!!!

didnt understod your requirement well..
try to assign a variable to check the count of loop and use exit sub
eg:-

Private Sub ComboBox10_Change()
    Application.ScreenUpdating = False
If cnt = 2 Then Exit Sub
     
    Sheet2.Range("AE4").Value = ComboBox10.Text
     
     
    Sheet4.ComboBox9.Text = ComboBox10.Text 'copy to AUTO tab
     
     
     
     'See if the text is in the list
    With ComboBox10
        If .ListIndex > -1 Then
        cnt = cnt + 1
            Sheet2.Range("AE5").Value = .List(.ListIndex, 1)
        Else
            Sheet2.Range("AE5").Value = "" 'clear out the cell becouse the text entered is Custom
        End If
    End With
     
     
    Application.ScreenUpdating = True
End Sub

put this in start of the code and see if it does the trick

Re: Userform Listbox Rowsource dependent on Textbox value

try this

Set ran = ActiveSheet.UsedRange
 
  ran.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("I1"), Unique:=False

it will give you the required data into existing sheet but you have to adjust the criteria as per your request and the CopyToRange where you want the data to get pasted

Re: "AllowFiltering" in Protected Mode with Auto Filter Ribbon Buttons Enabled

Hi steven,
i think first you have to unprotect the sheet and then try filtering the data if you dont want to unprotect then you can use advance filters.
hope this helps

Re: Checkboxes dynamically created

you have to set the check box to an object

set chk = theCheckBox_ID(i)
i think so..

Re: Sum till blank cell - Continue till next blank cell

try this

Sub test()
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.UsedRange.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.RemoveSubtotal
End Sub

Re: Macro to Open a Box with Multiple Files and Allow User to Pick 1 to Open

agreed with cytop... its better to use hyperlink

Re: Copy Last used cell in column "D" from multiple closed workbooks to an open work

try this

Sub tt()
Dim wbk As String, wbk1 As String, objshell As Object
Dim nt As Range
Set objshell = CreateObject("Shell.Application").browseforfolder(0, "Please Select Folder", 1)
On Error GoTo error_trap:
Path = objshell.self.Path & "\"
wbk = "AutoUpdate.xlsx"
fname = Dir(Path)
Do While fname <> ""
If InStr(fname, ".xls") > 0 Then
Workbooks.Open Path & "\" & fname
Workbooks(wbk).Activate
Range("A2").Select
Do While ActiveCell.Address <> Range("A65536").End(xlUp).Offset(1, 0).Address
str1 = ActiveCell.Value
Workbooks(fname).Activate
Set nt = Range("A:A").Find(what:=str1, MatchCase:=True)
If Not nt Is Nothing Then
ash = Range("A:A").Find(what:=str1, MatchCase:=True).Offset(0, 3).Value
End If
Workbooks(wbk).Activate
ActiveCell.Offset(0, 1).Value = ash
ash = ""
ActiveCell.Offset(1, 0).Select
Loop
Workbooks(fname).Close False
End If
fname = Dir
Loop
MsgBox "Done", vbInformation, "Ashish"
error_trap:
End Sub

Re: Type mismatch error - confusing!

try this

ws1.Range("B" & bottom & ":B" & (bottom + rowcount)).value = ws2.Range("A3:A" & last).Value & " " & ws2.Range("B3:B" & last).Value

Re: Can't click hyperlink in locked cells.

pleasure providing the solution to you

great work Ger Plante:congrats:

Re: Can't click hyperlink in locked cells.

please provide your code so far that i can help you further

Re: Can't click hyperlink in locked cells.

can you let me know that the answer provided to you firstly solved your issue?

the error is due to no cells range .Cells(A, "AV") ---> this is not the proper way

cells(0,"AV") or someother values inside the bracket

try something like this easy and works for me every time

tool.Worksheets("TRB Database").range("Enter Range here").Formula = "=HYPERLINK("" & URLText & "", " & CStr(ThisWorkbook.Worksheets("Design Calculator, Q").Cells(21, "P").Value) & ")"