Error 438 Excel Macro
Contents |
360 games PC games excel macro erreur 438 Windows games Windows phone games Entertainment All Entertainment
Error 438 Excel Vba
Movies & TV Music Business & Education Business Students & educators runtime error 438 excel Developers Sale Sale Find a store Gift cards Products Software & services Windows Office Free downloads & security Internet runtime error 438 excel 2010 Explorer Microsoft Edge Skype OneNote OneDrive Microsoft Health MSN Bing Microsoft Groove Microsoft Movies & TV Devices & Xbox All Microsoft devices Microsoft Surface All Windows PCs & tablets PC accessories Xbox & games Microsoft Lumia All
Runtime Error 438 Excel 2013
Windows phones Microsoft HoloLens For business Cloud Platform Microsoft Azure Microsoft Dynamics Windows for business Office for business Skype for business Surface for business Enterprise solutions Small business solutions Find a solutions provider Volume Licensing For developers & IT pros Develop Windows apps Microsoft Azure MSDN TechNet Visual Studio For students & educators Office for students OneNote in classroom Shop PCs & tablets perfect for students Microsoft in Education Support Sign in Cart Cart Javascript is disabled Please enable javascript and refresh the page Cookies are disabled Please enable cookies and refresh the page CV: {{ getCv() }} English (United States) Terms of use Privacy & cookies Trademarks © 2016 Microsoft
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and run-time error 438 excel policies of this site About Us Learn more about Stack Overflow the run time error 438 excel macro company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users
Run Time Error 438 Vba Access
Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes https://support.microsoft.com/en-us/kb/171075 a minute: Sign up Excel VBA, error 438 "object doesn't support this property or method up vote 2 down vote favorite I have this code in which I've been getting help with a bit, but I've run into an issue, or what I think is an issue. The last lookup, I am being told that the object doesn't support this property http://stackoverflow.com/questions/12288588/excel-vba-error-438-object-doesnt-support-this-property-or-method or method. I know it's probably something easy, but my brain is smoldering. I'd like some help if someone knows the answer of why this is happening. Thanks. Option Explicit Sub Update_Dakota() Dim wsDAO As Worksheet 'Dakota OOR Dim wsDAD As Worksheet 'Dakota Data Dim wsDAR As Worksheet 'Dakota Archive Dim wsPOR As Workbook 'New Workbook Dim lastrow As Long, fstcell As Long Dim strFile As String, NewFileType As String, filename As String Set wsDAO = Sheets("Dakota OOR") Set wsDAD = Sheets("Dakota Data") Set wsDAR = Sheets("Dakota Archive") With Application .ScreenUpdating = False .DisplayAlerts = False .EnableEvents = False End With lastrow = wsDAD.Range("B" & Rows.Count).End(xlUp).Row + 1 With wsDAD .Range("I2").Formula = "=COUNTIFS('Dakota OOR'!$B:$B,$A2,'Dakota OOR'!$D:$D,$C2, 'Dakota OOR'!$G:$G,$F2)" .Range("J2").Formula = "=IF(I2,""Same"",""Different"")" wsDAD.Range("I2:J2").Copy wsDAD.Range("I3:J" & lastrow) wsDAD.Range("I:J").Calculate End With strFile = Application.GetOpenFilename() NewFileType = "Excel Files 2007 (*.xls)" Set wsPOR = Application.Workbooks.Open(strFile) lastrow = wsPOR.Range("A" & Rows.Count).End(xlUp).Row + 1 wsPOR.Range("A2:G" & lastrow).Select End Sub excel excel-vba share|improve this question asked Sep 5 '12 at 19:40 Matt Ridge 1,204113252 5 lastrow = wsPOR.Range("A" & Rows.Count).End(xlUp).Row + 1 has no worksheet associated with it. wsP
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site http://stackoverflow.com/questions/25572021/excel-vba-run-time-error-438-object-doesnt-support-this-property-or-method About Us Learn more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Excel VBA: Run-time error error 438 '438' Object doesn't support this property or method up vote 1 down vote favorite 1 Please help debug: Run-time error '438' Object doesn't support this property or method I'm not sure why my the Function ConvertToStdDateFormat(InputRange As Range) is not accepting the range 'ThisRange' Here's what my input looks like 201301 201401 201301 201401 201302 201402 201302 201402 201303 201403 201303 201403 201304 201404 201304 201404 error 438 excel 201305 201405 201305 201405 Below is the code Sub trythis() Dim ThisRange As Range Dim MonthYear_array As Variant start_date_row = 1 end_date_row = 12 With ActiveSheet Set ThisRange = .Range(Cells(start_date_row, 1), Cells(end_date_row, 2)) MonthYear_array = .Range(Cells(start_date_row, 4), Cells(end_date_row, 5)).Value End With Call ConvertToStdDateFormat(ActiveSheet.Range(Cells(start_date_row,1), Cells(end_date_row, 2))) Call ConvertToStdDateFormat(ActiveSheet.ThisRange) End Sub Public Function GetMonthYearFormatted(InputDate) 'InputDate should be in the format "201401" i.e. year(2014)month(01) IPString = CStr(InputDate) monthval = CInt(Right(IPString, 2)) yearval = CInt(Left(IPString, 4)) opDate = DateSerial(yearval, monthval, 1) OPFormatDate = Month(opDate) & "-" & Year(opDate) GetMonthYearFormatted = OPFormatDate End Function Function ConvertToStdDateFormat(InputRange As Range) Dim temp_array As Variant temp_array = InputRange For colsC = 1 To UBound(temp_array, 2) For rowsC = 1 To UBound(temp_array, 1) temp_array(rowsC, colsC) = GetMonthYearFormatted(temp_array(rowsC, colsC)) Next rowsC Next colsC InputRange.Resize(UBound(temp_array, 1), UBound(temp_array, 2)) = temp_array ConvertToStdDateFormat = Null End Function excel vba range runtime-error share|improve this question asked Aug 29 '14 at 16:04 WonderWoman 21115 add a comment| 1 Answer 1 active oldest votes up vote 1 down vote Just replace the line Call ConvertToStdDateFormat(ActiveSheet.ThisRange) by Call ConvertToStdDateFormat(ThisRange) and the code will work (the worksheet where the range is located is stored in the range object itself and can b