Click here to edit title

lets learn together

Download

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 »

UserForm-GNRP

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

 

 

Private Sub CmbQC_Enter()

CmbQC.Clear

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

For i = 2 To countqc

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

Next

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 »