Error 438 Excel
Contents |
360 games PC games error 438 excel vba Windows games Windows phone games Entertainment All Entertainment error 438 excel macro Movies & TV Music Business & Education Business Students & educators
Excel Error 1004
Developers Sale Sale Find a store Gift cards Products Software & services Windows Office Free downloads & security Internet
Runtime Error 438 Excel Vba
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 2010 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 policies of this site About Us Learn more
Runtime Error 438 Excel 2013
about Stack Overflow the company Business Learn more about hiring developers or posting ads run time error 438 excel 2013 with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow excel runtime error 438 fix is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Solved: Run-time error '438' Object doesn't support this property or method - https://support.microsoft.com/en-us/kb/287114 worked previously up vote 1 down vote favorite I wrote a VBA script that runs through a bank statement finding payments of a certain value. This code ran fine when I wrote it, but when I return to it a couple of months later I get Run-time error '438' Object doesn't support this property or method; here is an extract of the code. Set bankWB = ActiveWorkbook Set bankWS = http://stackoverflow.com/questions/30913248/solved-run-time-error-438-object-doesnt-support-this-property-or-method-wo ActiveSheet For rowcount = 0 To 250 skipline = False If bankWS.Cells(rowcount, paidcol) = 5 Then payee = Trim(bankWS.Cells(rowcount, payeecol)) paid = "5" The error occurs on the 'if' line. I'm new to VBA so it's probably an basic error, but I've found various examples that reference cell values in the same way and this worked ok previously (although something has obviously changed). If you Google this error there are lots of results and I see that using 'range' is more common than using 'cell' to reference a single cell, but it's not obvious to me how to easily translate my (x,y) cell variables/loop into a range "A1" type value so I've not tried rewriting the code to use range instead yet. I assume that the object is bankWS.Cells and it's the property rather than the method that is the problem - I want to know what the value of the object is (=property), I'm not trying to do anything with the object (=method) I've seen lots of different ways of writing the cell object, and tried various permutations, none of which make a difference. eg. If worksheet.bankWS.Cells(rowcount, paidcol) = 5 Then If bankWS.Cells.item(rowcount, paidcol) = 5 Then If bankWS.Cells(rowcount, paidcol).value = 5 Then I'm
here for a quick overview of the site Help Center Detailed answers to http://stackoverflow.com/questions/33670584/run-time-error-438-object-doesnt-support-this-property-or-method-range-va any questions you might have Meta Discuss the workings and policies of this site 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 error 438 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 “Run-Time error '438': Object doesn't support this property or method.” Range.values = Range.values up vote 1 down vote favorite I am trying to copy a range of error 438 excel data from a Excel workbook to another workbook without the need of selecting any workbook during this process and using worksheet object names. I want to do this because the selection process: Windows("SourceWorksheet").Activate - Sheet("SourceSheet").Select - Range("SourceRange").Copy - Windows("DestinationWorksheet").Activate - Sheet("DestinationSheet").Select - Range("DestinationRange").Paste is very slow compare with DestinationWorkBook.DestinationSheet.Range("DestinationRange").Value = SourceWorkBook.SourceWorkSheet.Range("SourceRange").Value I have got this working using sheets tap names and letter ranges: Workbooks(DestinationWorkBook).Sheets("DestinationSheet").Range("A:C").Value = _ Workbooks(SoureceWorkBook).Sheets("SourceSheet").Range("A:C").Value And also using semi-dynamic ranges and sheets tap names: lastRow = Cells(Workbooks(Limits_Name).Sheets("SourceSheet").Rows.Count, _ "A").End(xlUp).Row Workbooks(DestinationWorkBook).Sheets("DestinationSheet").Range("A1:C" & lastRow).Value = _ Workbooks(SourceWorkBook).Sheets("SourceSheet").Range("A1:C" & lastRow).Value My problems starts when I use sheets object names instead of sheets names or cells instead of ranges. In those situation is when I get that error: Workbooks(DestinationWorkBook).shtDestinationSheet.Range("A:C").Value = _ Workbooks(SourceWorkBook).Sheets("SourceSheet").Range("A:C").Value OR lastRow = Cells(Workbooks(SourceWorkBook).Sheets("SourceSheet").Rows.Count, "A").End(xlUp).Row lastCol = Cells(1, Workbooks(SourceWorkBook).Sheets("SourceSheet").Columns.Count).End(xlToLeft).Column Workbooks(DestinationWorkBook).Sheets("DestinationSheet").Range(Cells(1, 1), Cells(lastRow, lastCol)).Value = _ Workbooks(SourceWorkBook).Sheets("SourceSheet").Range(Cells(1, 1), Cells(lastRow, lastCol)).Value OR (this is the ideal code) lastRow = Cells(Workbooks(SourceWorkBook).Sheets("SourceSheet").Rows.Count, "A").End(xlUp).Row lastCol = Cell