filmov
tv
Excel VBA Malayalam Tutorial (Tea shop billing software part 6)

Показать описание
This is Advanced excel VBA Malayalam project tutorial. You can learn step by step with explanation.
Please comment if you feel any doubt and try to build application yourself. If you fail I will make for you as per your YouTube comment. Getting in touch my channel for new updating. Enjoy……
Sub savedata()
If Sheet1.Range("D5").Text = "" Then
MsgBox "Enter customer name!!!!"
Else
Dim lastrow As Long
ActiveSheet.Unprotect "akbar"
lastrow = ActiveSheet.Cells(Rows.Count, "AL").End(xlUp).Row + 1
ActiveSheet.Cells(lastrow, "AL").Value = Sheet1.Range("D5").Text
ActiveSheet.Cells(lastrow, "AL").Offset(0, 1).Value = Sheet1.Range("F5").Text
ActiveSheet.Cells(lastrow, "AL").Offset(0, 2).Value = Sheet1.Range("G32").Text
Range("D5,D8:D29").Select
Range("D8").Activate
ActiveWindow.SmallScroll Down:=-12
Range("D5,D8:D29,F8:F29").Select
Range("F8").Activate
ActiveWindow.SmallScroll Down:=-12
Selection.ClearContents
Range("F5").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F6").Select
Application.Goto Reference:="billitem"
ActiveSheet.Protect "akbar", True, True
MsgBox "Customer bill saved and add another customer !!!!"
End If
End Sub
Please comment if you feel any doubt and try to build application yourself. If you fail I will make for you as per your YouTube comment. Getting in touch my channel for new updating. Enjoy……
Sub savedata()
If Sheet1.Range("D5").Text = "" Then
MsgBox "Enter customer name!!!!"
Else
Dim lastrow As Long
ActiveSheet.Unprotect "akbar"
lastrow = ActiveSheet.Cells(Rows.Count, "AL").End(xlUp).Row + 1
ActiveSheet.Cells(lastrow, "AL").Value = Sheet1.Range("D5").Text
ActiveSheet.Cells(lastrow, "AL").Offset(0, 1).Value = Sheet1.Range("F5").Text
ActiveSheet.Cells(lastrow, "AL").Offset(0, 2).Value = Sheet1.Range("G32").Text
Range("D5,D8:D29").Select
Range("D8").Activate
ActiveWindow.SmallScroll Down:=-12
Range("D5,D8:D29,F8:F29").Select
Range("F8").Activate
ActiveWindow.SmallScroll Down:=-12
Selection.ClearContents
Range("F5").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F6").Select
Application.Goto Reference:="billitem"
ActiveSheet.Protect "akbar", True, True
MsgBox "Customer bill saved and add another customer !!!!"
End If
End Sub
Комментарии