Let me know in the comments if this video was helpful. If you are having trouble locating the error then check out this video: ua-cam.com/video/79i0zeBE1ec/v-deo.html
Your tutorials are so fascinating and very helpful. I have a question to ask from you. 1 am using MS ACCESS to create a report based on query and then write its values to excel using copyfromrecordset method and it is dynamic in every aspect. I want to subtotal end the end of the range but dynamically if columns values are numbers then do subtotal else skip the column amd move to next column available. Kindly help me I am trying this but not working.
Hi Paul. Another great video! For some reason, I did not get a notification when you posted it on 1/21. My bell setting is set to "all". Anyway, thanks for sharing this information. Very useful :)) Thumbs up!!
This is my VBA to upper case any entries in the columns N or S. When I delete a row, I get a mismatch error at the Target.Value =UCase(Target.Value) line. Do you have any suggestions? Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("N:N, S:S")) Is Nothing Then Exit Sub Application.EnableEvents = False Target.Value = UCase(Target.Value) Application.EnableEvents = True End Sub
How to solve when the data is exported to excel and the numbers are treated as strings by excel. And how to solve when there might be blank cells in the selected data, how to make the code skip blank cells?
Great content!!! why did i get this error here? all the variables are numbers in my spreadsheet. im trying to let excel run through a columns in a row, and where there is number calculate a goal seek by changing the cell to 0. Sub Goal_Seek() Dim LastColumn As Long, i As Long With ActiveSheet LastColumn = .Cells(.Columns.Count, 45).End(xlToRight).Column For i = "C" To LastColumn .Range(45 & i).goalseek Goal:=0, ChangingCell:=.Range(46 & i) Next i End With End Sub
Hi folks, I am getting Error 13 while running the below code. If the contents of cell is New years day, I want to clear the cells contents. The bold portion of the code is where the problem seems to be. any suggestions / advise would be great. --------------------------------------------------------------- Sub Clear_contents() Dim cell As Range Dim myrange As Range Set myrange = Worksheets("Step 1-3 Working Sheet").Range("M13:BA23") myrange.UnMerge For Each cell In myrange If cell.Value = "New Years Day" Then cell.ClearContents End If Next cell End Sub ------------------------------------------------------------------
Gracias por tus video, le escribo desde Venezuela, tengo el error "se ha producido el error 13 en tiempo de ejecución" no logro solucionarlos me puede ayudar, gracias... Thanks for your video, I am writing to you from Venezuela, I have the error "error 13 has occurred at runtime" I can't solve them can you help me, thanks
Hi Sir, I'm getting data type mismatch error in vba excel but it's not asking me to debug, so I didn't know where the mismatch is. any solution please? thank you
Hello, I am trying to learn VBA and came into this issue today. When I entered: On Error Resume Next txtStartDate.Text=CDate(txtStartDate.Text) I got a runtime error saying "Type Mismatch", because I typed "88/88/aaa" into the txtStartDate edit box. However my question is why did VBA ignore "On Error Resume Next"? I looked up the Google and found that an Excel MVP said that Conversion function raise runtime error even when the is an error handler in place. Is this true?
Let me know in the comments if this video was helpful.
If you are having trouble locating the error then check out this video: ua-cam.com/video/79i0zeBE1ec/v-deo.html
Your tutorials are so fascinating and very helpful.
I have a question to ask from you.
1 am using MS ACCESS to create a report based on query and then write its values to excel using copyfromrecordset method and it is dynamic in every aspect.
I want to subtotal end the end of the range but dynamically if columns values are numbers then do subtotal else skip the column amd move to next column available.
Kindly help me I am trying this but not working.
Even with topics I think I already know, I still learn something new from your videos. Cheers!
Glad to hear it!
Hi Paul. Another great video! For some reason, I did not get a notification when you posted it on 1/21. My bell setting is set to "all". Anyway, thanks for sharing this information. Very useful :)) Thumbs up!!
Thanks Wayne. I published it early by mistake so that might have caused the problem.
@@Excelmacromastery Thanks.. no worries. Looking forward to the next one!
Thank you very much for your useful video. I do face these Error 13 Type Mismatch as you mentioned. Now I learn and realized them.
Thanks Trinh
I think it's a good habit to see your new video.
Loved your work, simple and elegant explaination
Many thanks!
Thank you. This video helped me to solve my issue.
This is my VBA to upper case any entries in the columns N or S. When I delete a row, I get a mismatch error at the Target.Value =UCase(Target.Value) line. Do you have any suggestions?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("N:N, S:S")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub
Another great vid - thanks Excel Master!
Glad you liked it Steve
Very useful video.. please make to basic to advance level
Excellent Video, thanks for share.
Neee your help regarding my micro showing in error run time 13 error so pls help how to correct
How to solve when the data is exported to excel and the numbers are treated as strings by excel. And how to solve when there might be blank cells in the selected data, how to make the code skip blank cells?
I got "Type Mismatch Error" on the code that I wrote for detecting Type mismatch error . What now?
Great content!!! why did i get this error here? all the variables are numbers in my spreadsheet.
im trying to let excel run through a columns in a row, and where there is number calculate a goal seek by changing the cell to 0.
Sub Goal_Seek()
Dim LastColumn As Long, i As Long
With ActiveSheet
LastColumn = .Cells(.Columns.Count, 45).End(xlToRight).Column
For i = "C" To LastColumn
.Range(45 & i).goalseek Goal:=0, ChangingCell:=.Range(46 & i)
Next i
End With
End Sub
hii sir plz make a blog on sumifs functions in vba 2, 3 method
Hi folks,
I am getting Error 13 while running the below code. If the contents of cell is New years day, I want to clear the cells contents.
The bold portion of the code is where the problem seems to be. any suggestions / advise would be great.
---------------------------------------------------------------
Sub Clear_contents()
Dim cell As Range
Dim myrange As Range
Set myrange = Worksheets("Step 1-3 Working Sheet").Range("M13:BA23")
myrange.UnMerge
For Each cell In myrange
If cell.Value = "New Years Day" Then
cell.ClearContents
End If
Next cell
End Sub
------------------------------------------------------------------
Gracias por tus video, le escribo desde Venezuela, tengo el error "se ha producido el error 13 en tiempo de ejecución" no logro solucionarlos me puede ayudar, gracias... Thanks for your video, I am writing to you from Venezuela, I have the error "error 13 has occurred at runtime" I can't solve them can you help me, thanks
hi
i hve error "System Error &H&000FFFF(-2147418113) Catastrophic fairule" can you help me?
Hi Sir, I'm getting data type mismatch error in vba excel but it's not asking me to debug, so I didn't know where the mismatch is. any solution please? thank you
Go to Tools->Options and select "Break on all errors". Then run again and it will stop on the line. When finished debugginh reset this setting.
I still need help
Hello,
I am trying to learn VBA and came into this issue today. When I entered:
On Error Resume Next
txtStartDate.Text=CDate(txtStartDate.Text)
I got a runtime error saying "Type Mismatch", because I typed "88/88/aaa" into the txtStartDate edit box.
However my question is why did VBA ignore "On Error Resume Next"?
I looked up the Google and found that an Excel MVP said that Conversion function raise runtime error even when the is an error handler in place.
Is this true?
rivate Sub CommandButton5_Click()
Billto = Range("A10")
Invoicenum = Range("q10")
DateID = Range("s10")
Description = Range("i29")
DCnum = Range("q12")
Path = "D:\Accouts FEW\GlintCashBills\"
fname = "GlintCashBill" & "Billto" & "Invoicenum & " - " DateID & " - " Description & " - " DCnum"
MsgBox "Save as PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=Path & fname
End Sub