EverydayVBA

EverydayVBA

Teaching people everywhere to become Excel VBA Ninjas

Пікірлер

  • @AschwandenJakob
    @AschwandenJakob8 күн бұрын

    You're a damn good teacher for an old fart like me. The last programming I did was around the turn of the millennium. (except for a few modifications to old, existing ones)😂

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining8 күн бұрын

    @@AschwandenJakob yeah I learned from a book haha

  • @marcw.5492
    @marcw.549211 күн бұрын

    This error does not happen when I run macro in 2007 - but does in 2021. Im changing focus to different workbook or sheet - and they do exist !

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining11 күн бұрын

    @@marcw.5492 that is weird. Can you post the code that has the error

  • @marcw.5492
    @marcw.54924 күн бұрын

    @@EverydayVBAExcelTraining Well the line that VBA stops at is : Workbooks("historicalweeklydata.xlsx").Activate or Workbooks(2).Activate I also receive same eroor in other VBA macros trying to select a SHEET. Again all this has worked for years in 2007 but not in later version (2021) of Excel. There are other issues trying to open links to web sites that have never been an issue prior.

  • @OscarHernandez-q7o
    @OscarHernandez-q7o19 күн бұрын

    Thank you! My professor wanted us to create a function just like yours without using the "application.worksheetfunciton.sum" command. However he wanted us to use "for loops" instead of the "for each".

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining19 күн бұрын

    Nice, glad it helped. It took me a while to learn For Each loops once I did functions and got a lot easier

  • @Private_Engineering
    @Private_EngineeringАй бұрын

    Thank you very much

  • @annezach5232
    @annezach5232Ай бұрын

    Thank you for this! What if there are multiple delimiters?

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTrainingАй бұрын

    Multiple delimiters would be tough. You would need to have a loop and split everything 2 times.

  • @Danny-kq4ff
    @Danny-kq4ffАй бұрын

    Thumbs down, not a good explanation

  • @asva4855
    @asva4855Ай бұрын

    Thanks for sharing this VBA code. Could you help me with the Macrocodes in this senario? Sheet 1 (DATA) is where I will input the details and Sheet 2 (DATABASE) where it will be save as a database. Senario: In Sheet 1 (DATA) using column, I will put up to multiple entries: DATA SHEET column sample: name/age/phone Jay/12/123 Joy/16/456 Will create command button SAVE. Condition: Once i click the save button, if the names are new entries the data will automatically move to the DATABASE sheet then clear the entry in the DATA SHEET proof that already moved to the database sheet. however, if the name is duplicate there will be a prompt that I have a duplicate value and won't be able to save in the DATABASE sheet. Also the data are retain to DATA Sheet to identity easily the duplicate. Thank yo in advance.

  • @farinnaity3692
    @farinnaity36922 ай бұрын

    Hello, i am have a similar issue but i cant fix it :( ..not sure where to mae the changes..can you please share your Email address? So that i can share the code with you as it's quite long.

  • @LeeTownsend-rx6sm
    @LeeTownsend-rx6sm2 ай бұрын

    Do you have an equivalent for the Mac Terminal?

  • @rickybailey8609
    @rickybailey86092 ай бұрын

    I am trying to use this code to do this with defined tables on both worksheets but I keep getting a 424 error (MasterTracker and MasterTracker4 are the table names to move from and to respectively). How do I go about doing exactly this with defined tables?

  • @dilkushbhai006
    @dilkushbhai0063 ай бұрын

    Sir please help me for Air mein error a raha hai yah to aapke WhatsApp contact number de do Jo main aapse poochh sakoge

  • @dilkushbhai006
    @dilkushbhai0063 ай бұрын

    Sir please help me mere bhi the name is not valid error a raha hai

  • @rinkeshverma2880
    @rinkeshverma28803 ай бұрын

    You literally can't explain😅

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining3 ай бұрын

    Maybe if you send me a message I can explain it here

  • @jeremyharter3648
    @jeremyharter36483 ай бұрын

    Is it possible to save as PDF instead of .xlsm? I tried to replace filename = Application.GetSaveAsFilename("Default Name of Saved File", _ "Excel Macro Files,*.xlsm", 1, "Save the File") Debug.Print filename with filename = Application.GetSaveAsFilename("Default Name of Saved File", _ "PDF,*.pdf", 1, "Save the File") Debug.Print filename and I get a file that is saved in PDF but I am unable to open it.

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining3 ай бұрын

    For PDFs you would use the print function and set the output to PDF. Note this can be complicated if others users don't have the same PDF software

  • @Idoko_Ifeanyichukwu
    @Idoko_Ifeanyichukwu3 ай бұрын

    Thank you, sir

  • @PeteyZ28
    @PeteyZ283 ай бұрын

    Still helpful over 3 years later!! The Object Browser at the end was clutch =]

  • @davidsanchez-bu9un
    @davidsanchez-bu9un4 ай бұрын

    Hi,. thanks for the video. Can you please help me to detect the error that it is triggered in the last line: ThisWorkbook.SaveAs Filename:=nombreFichero Sub backAuto() RunTimer = Now + TimeValue("01:00:00") Application.OnTime RunTimer, "backAuto" 'nombreFichero = "c:\temp\Excel\" & Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time) & ".xlsx" nombreFichero = "f:\davidtemp\" & Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time) & ".xlsx" MsgBox nombreFichero ThisWorkbook.SaveAs Filename:=nombreFichero End Sub

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining4 ай бұрын

    Does the folder exist?

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining4 ай бұрын

    What is the specific error that you get?

  • @stamatarsenikos9708
    @stamatarsenikos97084 ай бұрын

    this doesn't work when your code is in the personal.xlsb folder

  • @johngilbert5405
    @johngilbert54054 ай бұрын

    sick intro

  • @lauristonjunior252
    @lauristonjunior2524 ай бұрын

    Eu tenho um botao com mousemove, mas ele so é ativo quando eu clico em outro botao, tipo: Ele é para atualizar, mas ele so aparece quando eu chamo os dados para serem atualizados, dai ele fica com efeito de MouseMove, nao sei como fazer, pois se deixo ele assim, mesmo que coloque .visible = False, por ele ter o mousemove, ele aparece, o que fazer e como fazer?

  • @j.fabricioelias227
    @j.fabricioelias2274 ай бұрын

    Thank you!

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining4 ай бұрын

    Glad it helped

  • @harisonic
    @harisonic4 ай бұрын

    How to do this using .Add function?

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining4 ай бұрын

    What do you mean add. What are you trying to do. You can concatenate strings using &

  • @spankmobley
    @spankmobley5 ай бұрын

    No way to do this programmatically?

  • @CAP0NE
    @CAP0NE5 ай бұрын

    When cancelling the InputBox in step 3 (Range) I get an Error which can't even be handled. Run-time error '424': Object required Any ideas on this?

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining5 ай бұрын

    What did you enter? It is expecting a range so if it gets a number or characters it won't work. You will need to do error handling

  • @davidmensah6101
    @davidmensah61015 ай бұрын

    Man! Your Array videos are the best. I am just starting off with Excel VBA and this is the simplest yet most comprehensible videos I have come across on the whole internet. Thanks, man!

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining5 ай бұрын

    Glad it helped!

  • @Juan-Hdez
    @Juan-Hdez5 ай бұрын

    Very useful. Thank you.

  • @donalmurphy7021
    @donalmurphy70216 ай бұрын

    Perfect! Just the simple solution that I was looking for.

  • @kebincui
    @kebincui6 ай бұрын

    You are an excellent instructor, explaiining very well. Thank you

  • @MJ-oj2qv
    @MJ-oj2qv6 ай бұрын

    I was looking for a resize video but subbed after watching this. Nicely short and to the point.

  • @SavedbyGraceCT
    @SavedbyGraceCT6 ай бұрын

    Getting this error right after I changed the formatting in tables to fixed number values.

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining6 ай бұрын

    The table should not cause this issue unless it is considering blanks as zeros

  • @SavedbyGraceCT
    @SavedbyGraceCT6 ай бұрын

    @@EverydayVBAExcelTraining I've set it back to general number and taken out all the table level default zeros - in and working again until a moment ago, I had just done a batch sql update and insert on tables and now I've got div/0 going on. So, there must be zeros progating somewhere.

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining6 ай бұрын

    @melanieCT so weird. Can you use a iferror in the formulas

  • @AliNBarakat
    @AliNBarakat6 ай бұрын

    Thanks for you But how i can open all xls files in multi folder to extract data.

  • @AliNBarakat
    @AliNBarakat6 ай бұрын

    @EverydayVBAExcelTraining

  • @pauljosephson4820
    @pauljosephson48207 ай бұрын

    you didn't define/Dim "rw"

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining7 ай бұрын

    Yeah, I have constantly gone back an forth on that one. To not define variables is NOT best practice but it also takes time to explain on videos and can be more confusing for someone new to vba. I don't know what the right answer is here.

  • @owenwaldo
    @owenwaldo7 ай бұрын

    Multidimensional arrays are insane

  • @asaduzzamandaria8731
    @asaduzzamandaria87317 ай бұрын

    Thanks a lot. It's great than other to me.

  • @user-gu8kj4id7c
    @user-gu8kj4id7c7 ай бұрын

    Performing a comparisson of two value columns is so basic task but i've spent an hour before I found your salvatory video. Thank you!

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining7 ай бұрын

    Funny story. I do this very rarely but found it very useful so I posted the video. About a year later I forgot I had done the video and when I googled how to do this my video came up. Haha Glad it helped

  • @owenlau2025
    @owenlau20257 ай бұрын

    Thank you so much! question, is there a way we could make the sheet number dynamic? I tried Sheet&"i" with i as an integer and i increases by 1 each time it goes thru the loop, but always get an error. Much appreciated..

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining7 ай бұрын

    Sheet.name & I This should do the trick. Sheet is an object that contains cells, format, charts, shapes etc. so you need to tell it what part of the object you want and in this case it is .name

  • @owenlau2025
    @owenlau20257 ай бұрын

    Thanks for your quick response, I really appreciate it. Just learned Sheets(i) would do as well, I missed the "s" :) @@EverydayVBAExcelTraining

  • @mr.write1433
    @mr.write14337 ай бұрын

    So can i make an if statement to this? For if the the file path <> to my path then ill put msg box then close the. App

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining7 ай бұрын

    Yes within your for loop you will need and if statement and the code inside the if statement would be If ... Msgbix ... Exit suc End if

  • @YigalBZ
    @YigalBZ7 ай бұрын

    Can the VBA select by the name the sheet was given? not by the code name?

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining7 ай бұрын

    VBA can select by the name of the sheet which the user can change. You can also select by the code name or even the index (sheet number left to right) I typically use code name because then the end user can't mess up my code

  • @POMI_Singing_Guru
    @POMI_Singing_Guru7 ай бұрын

    thanks a lot dear, really very thank full for your kind training............ WELDONE WORK THANKS A LOT FOR THIS BEAUTIFUL SESSION OF FILE SEARCHING

  • @user-ht2mw4ko6f
    @user-ht2mw4ko6f7 ай бұрын

    is there a way to run this code to list in a second column the date last modified information? Thank You!

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining7 ай бұрын

    The easiest thing to do is to insert a column after the list is created. You could also try cells(1,2) instead of cells(1)

  • @tranyarelisher4185
    @tranyarelisher41857 ай бұрын

    Super helpful, way better than the way I was doing it.

  • @dimamedvedev4124
    @dimamedvedev41248 ай бұрын

    Thanks for this video. I wonder whether can I get the name of the WB which I have saved from?

  • @ericmcgough1125
    @ericmcgough11258 ай бұрын

    Do you know a way to create an alias for the username section of the file path. Similar to the path you extracted, my organization shows the individual usernames near the beginning of the string. I created a macro that will copy and paste data from a template into a new workbook and save the new workbook as a defined cell reference. It works perfectly for me but my coworker cannot run it on her machine.

  • @ericmcgough1125
    @ericmcgough11258 ай бұрын

    The template file is saved in the same folder as the output file but our file paths are different due to our usernames.

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining8 ай бұрын

    You would need to add some error handling. How I would research the.problem is write a simple macro that checks for an Alias or username on their PC and prints it in A1. Then you will be able to isolate if the error is the alias. The other thing to check is permissions on the folder

  • @matthewthomas3688
    @matthewthomas36888 ай бұрын

    So first, thanks for some teaching. I know I am late so not sure if you are still active. Second, I am trying to create a Form that will input data on a specific row. I know how to get the row address, but I am not sure how to get the VBA to select that row and add the remaining data. The code looks like: Range("L4").Select ActiveCell.Formula2R1C1 = _ "=CELL(""address"",INDEX('Data'!RC[-11]:R[30]C[-11],MATCH(RC[-6],'Data'!RC[-11]:R[30]C[-11],0)))" Now how do I use that information to select the row and complete the data? Maybe something like: Row = dataSheet.Range("A" & Range("L4").Select ActiveCell.Formula2R1C1 = _ "=CELL(""address"",INDEX('Data'!RC[-11]:R[30]C[-11],MATCH(RC[-6],'Data'!RC[-11]:R[30]C[-11],0)))").End(xlUp).Offset(1).Row I think I am over complicating it....

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining8 ай бұрын

    You can use the following. The first number is the row and the second is the column. After equals is just text of the cell address so replace with whatever you want Cell(1,1) = "a1" Cell(1,2) = "b1"

  • @Prahatech
    @Prahatech8 ай бұрын

    The link to your VBA reference guide does not work. I get this: '404'- File Not Found

  • @vishaldave1726
    @vishaldave17269 ай бұрын

    you wested my time

  • @vishaldave1726
    @vishaldave17269 ай бұрын

    what is nonsence

  • @EverydayVBAExcelTraining
    @EverydayVBAExcelTraining9 ай бұрын

    It's a very old video series

  • @mayamali7625
    @mayamali76259 ай бұрын

    i saved macro file in .xlsx extension...now i want to open that file again and want to back my macro code in VBA module which i created..so how can i get back VBA code ...please reply

  • @querrythis
    @querrythis9 ай бұрын

    Beginner here. You codes never cease to amaze me. So darn efficient, yet easy to understand. Thank you soooo much.