YellowLabPro
10-14-2008, 06:42 AM
I am splitting up a module that calls on several other modules. The original module runs w/out error, however I believe that I am continously getting inconsistent results due to memory issues. To resolve this I am separating the module up into two separate ones. In doing so I have created a new module and placed the "Calls" in there. But I am getting a Compile error: Ambiguous name detected: ImportAttribs. This is the second call instruction, it does not happen w/ the call to a prior module.
Any ideas?
Sub Attribs()
'////////////////////// Timer ///////////////////////////////////////////////
Dim StartTime As Variant, StopTime As Variant, Elapsed As Variant
StartTime = Time
'////////////////////////////////////////////////////////////////////////////
' Dim y, z, a, b, w, x
' Dim wbSource As Workbook
' Dim wsSourceFF As Worksheet, wsSourceVB As Worksheet, wsTarget As Worksheet
' Dim rng1 As Range, rng2 As Range
' Dim lrTarget As Long, numColumns As Long, i As Long, ii As Long, iii As Long
' Dim lngRowCountWSF As Long, lngRowCountWSV As Long, iStatus As Long
' Dim wbn As String, wPath As String
Dim newHour As Double, newMinute As Double, NewSecond As Double, WaitTime As Double
Application.ScreenUpdating = False
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call AttribPriceSize
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call ImportAttribs
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call JoinAttribs
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call ClearAttribs
'Call CloseTGSProductsAttribPrep
ActiveSheet.[D2].Activate
Call SaveTextFile 'Previous method used to upload entire database to ecboardco.com site
Call Update_ecboardco
Call UpdatedSavedTextFile
'////////////////////// Timer ///////////////////////////////////////////////
StopTime = Time
Elapsed = StopTime - StartTime
MsgBox "Elapsed Time:" & Chr(13) & Format(Elapsed, "hh:mm:ss")
'////////////////////////////////////////////////////////////////////////////
Application.ScreenUpdating = True
End Sub
Thanks,
Doug
Any ideas?
Sub Attribs()
'////////////////////// Timer ///////////////////////////////////////////////
Dim StartTime As Variant, StopTime As Variant, Elapsed As Variant
StartTime = Time
'////////////////////////////////////////////////////////////////////////////
' Dim y, z, a, b, w, x
' Dim wbSource As Workbook
' Dim wsSourceFF As Worksheet, wsSourceVB As Worksheet, wsTarget As Worksheet
' Dim rng1 As Range, rng2 As Range
' Dim lrTarget As Long, numColumns As Long, i As Long, ii As Long, iii As Long
' Dim lngRowCountWSF As Long, lngRowCountWSV As Long, iStatus As Long
' Dim wbn As String, wPath As String
Dim newHour As Double, newMinute As Double, NewSecond As Double, WaitTime As Double
Application.ScreenUpdating = False
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call AttribPriceSize
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call ImportAttribs
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call JoinAttribs
newHour = Hour(Now())
newMinute = Minute(Now())
NewSecond = Second(Now()) + 2
WaitTime = TimeSerial(newHour, newMinute, NewSecond)
Application.Wait WaitTime
Call ClearAttribs
'Call CloseTGSProductsAttribPrep
ActiveSheet.[D2].Activate
Call SaveTextFile 'Previous method used to upload entire database to ecboardco.com site
Call Update_ecboardco
Call UpdatedSavedTextFile
'////////////////////// Timer ///////////////////////////////////////////////
StopTime = Time
Elapsed = StopTime - StartTime
MsgBox "Elapsed Time:" & Chr(13) & Format(Elapsed, "hh:mm:ss")
'////////////////////////////////////////////////////////////////////////////
Application.ScreenUpdating = True
End Sub
Thanks,
Doug