Office Development | Forum profile

as i have not seen the code you use to load data to the userform it is hard to show how to get the row number, but change the submit code like vb Code: Private Sub cmdSubmit_Click ( ) ActiveWorkbook. Sheets ( "sheet1" ) . Activate if hiddentext = 0 then hiddentext = range ( "a65335" ) . end ( xlUp ) . Row + 1   ' next empty row ' if hidden...

hi, tahnks for the reply, can you please incorportae this in to the code that i have provided here. If i create a text box then what declarations do i have to make? I understand the invisble one but how do i declare it to store the rows?

You need to 'Transfer' the contents of the ListBox onto a sheet as .printout is only supported by objects like chart, range, worksheet, workbook for example Code: Dim i As Long Private Sub UserForm_Initialize() '~~> Populate Sample Data For i = 1 To 10 ListBox1.AddItem i Next i End Sub Private Sub CommandButton1_Click() Dim rng As Range '~~> Populate From Range("A1") in Sheet1 from listbox...

Thread moved to 'Office Development/VBA' forum (note that the "VB Editor" in Office programs is actually VBA rather than VB, so the 'VB6' forum is not really apt)

Again: Set Default property of all buttons to False.

Today we had to solve a very peculiar but seemingly very very easy scenario but its not as we thought. Actually the task we assigned is to check a workbook for filled cells i.e filled by any color. If there is a filled one then we have to report 'no' in a statement. Yeah initially i also thought the same idea. Going cell by cell and evaluating its colorindex. To say you the truth i hates this idea. Actually i want to achieve this in...

This is becoming interesting. I recorded myself pasting an unsaved screenshot onto a sheet, deselecting the picture, selecting the picture again, cutting the picture and then pasting it in somewhere else. This is the code I got: Code: Range("C5").Select ActiveSheet.Paste Range("A8").Select Selection.Cut Range("F8").Select ActiveSheet.Paste It makes no reference to a picture or object. When...

Welcome to the forums. Presuming the string will always be the same length vb Code: Private Sub Command1_Click ( ) Dim strString As String Dim strCol1 As String Dim strCol2 As String Dim strCol3 As String strString = "T010203" strCol1 = Left ( strString, 3 ) strCol2 = Mid ( strString, 4 , 2 ) strCol3 = Right ( strString, 2 ) MsgBox strCol1 & " "...

Solved it myself again. Because I was selecting the same range I guess Excel figured it didn't need to update anything assuming it was the same data. If I selected one row short it updated it. Stop trying to be helfpul Microsoft!

Hi guys, I need help in modifying a large text file containing more than 1-2 lakh rows of data using freefile handler in excel vba. the text file contains data in a pipe delimited format sdfsdfs sdfsdfsd START_ROW sdfsd|sdfsdfsd|sdfsdfasdf|sdfsadf|sdfasdf sdfsd|sdfsdfsd|sdfsdfasdf||sdfasdf sdfsd||sdfsdfasdf|sdfsadf|sdfasdf END_ROW sdfsd sdfsfsdf i want to use the freefile handler to remove the header and the footer. i tried to read and print...