Data Validation in Excel VBA - VBA Code to Validate Data Entry

Рет қаралды 21,011

Excel Destination

Күн бұрын

This Excel VBA Macro Tutorial explains VBA Code to validate Data Entry in Excel.

Пікірлер: 15

@JATINKUMAR-qu4vi 2 жыл бұрын

Awesome tutorial👍

@davidtostenson4083 3 жыл бұрын

Is there a video to validate data from a known list? I want an error message for invalid part number without using a drop down menu.

@rhmanagoli 3 жыл бұрын

Sir, Good Logic

@anhnhatnguyet4628 3 жыл бұрын

In folder X, I have 2 excel files from column A to column H. Now I want to delete the unnecessary columns B: D, F, H in both excel files of the folder. How to write VBA code, so that when running the code, a message box will appear looking for the X directory address (or you can enter the X directory path directly into the code)

@ganeshkumar-tj6lx 3 жыл бұрын

Sub deletecolumn() Dim MyFolder As String Dim MyFile As String Application.DisplayAlerts = False Application.ScreenUpdating = False MyFolder = "E:\Exp" MyFile = Dir(MyFolder & "\*.xlsx") Do While MyFile "" Set OpenBook = Application.Workbooks.Open(MyFolder & "\" & MyFile) OpenBook.ActiveSheet.Range("B:D,F:F,H:H").Delete OpenBook.ActiveSheet.Range("A1").Select MyFile = Dir OpenBook.Close SaveChanges:=True Loop Application.ScreenUpdating = True End Sub

@MohAboAbdo 3 жыл бұрын

Thank you so mutch Sir.

@ExcelDestination 3 жыл бұрын

You are most welcome

@srinivasgoudmanthapuri2719 Жыл бұрын

👌👌

@ansjai7526 3 жыл бұрын

Sir make a video on live data from a source and make a excel with different time intervals automatically

@ExcelDestination 3 жыл бұрын

Will try

@sahirarman8409 3 жыл бұрын

sir please give the vba code export excel range to png jpg format high resolation 300dpi and 600 dpi

@ExcelDestination 3 жыл бұрын

Will upload soon

@TheJaebeomPark 3 жыл бұрын

Thanks

@ExcelDestination 3 жыл бұрын

Welcome

@karmusinghsiddhu190 3 жыл бұрын

can pls help on this Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Range("A1") "" Then Range("A1").Select Selection.AutoFill _ Destination:=Range("A1:A5"), Type:=xlFillDefault 'Range("H1").Value = "=IF(AND(F5="",G5="",H5="")),"",(I4+F5-G5-H5)" End If 'End With End Sub