Click here to edit title

lets learn together


Generate CSV

Posted by [email protected] on March 17, 2017 at 11:40 AM Comments comments (0)

Sub Prince_GenerateCSV()

Dim xx As String

Dim MyPATH As String

Dim FileNAME As String

Application.ScreenUpdating = False

Application.DisplayAlerts = False


MyPATH = InputBox("Enter the path where you want to keep generated CSV files", "Enter the Path")


If MyPATH = vbNullString Then

MsgBox "Command Cancelled, Please retry", vbExclamation, "Command Cancelled"

Exit Sub

End If


Read Full Post »


Posted by [email protected] on March 17, 2017 at 11:20 AM Comments comments (0)



Private Sub CmbQC_Enter()


countqc = Sheets("Misc").Range("D1048576").End(xlUp).Row

For i = 2 To countqc

CmbQC.AddItem Sheets("Misc").Range("D" & i).Value


End Sub


Private Sub CommandButton2_Click()

Unload Me

End Sub


Private Sub Frame2_Click()


End Sub


Private Sub TextBox7_Change()


End Su...

Read Full Post »