hey, i'm using Vba with excel i'm very new to this. i have created a Userform that insert information into the spreadsheet, some off the information is number. Excel is saving the number has text ? can n e 1 help? thank you

hey, if you highlight where you want the user to type in the password, right click properties and scroll down to "PasswordChar" then input what you want to be displayed

My password coding for excel
Private Sub OK_Click()
Dim m As String

 If UCase(TextPassword) = "SPROUT" Then
    Backdoor.Hide
    interface.Hide
    m = "Click the logo to restart system" & vbCrLf
    m = m & "please do not edit sheet1"
    MsgBox m, vbInformation, "Password screen"
    menuon
 Else
    Backdoor.Hide
    MsgBox "Incorrect Password", vbExclamation, "Access Denied"
 End If
End Sub

Hope this helped (not very good at explain stuff sorry

hey, think i done it by  =  int(numberstart)  seems to be ok now thank everyone

I am using excel to see if two large spreadsheets have changed.  I am setting up an =if(exact.... statemenet to do lookups.  The problems is that when one spreadsheet that has an #N/A as one the values returns an #N/A and then it interrupts my lookup.  

I want to write a VB macro that will scan the document for values of #N/A and delete the contents of the cell if there is a #N/A.

Thanks in advance.  

I'm having a similar problem, but this doesn't seem to help. I'm importing a sheet of data which contains dates. Some of the dates, appear in the left hand side of the cell, and are therefore not recognised as dates. I need a loop formula in VBA, which presses F2 and then enter, until it has completed the range.

Any ideas? Anyone?


hey, think i done it by  =  int(numberstart)  seems to be ok now thank everyone
Quote:

[1]Posted by sprouty69 on 14 Apr 2005 09:07 PM[/1]
hey, i'm using Vba with excel i'm very new to this. i have created a Userform that insert information into the spreadsheet, some off the information is number. Excel is saving the number has text ? can n e 1 help? thank you

Hi, I am trying to delete all the empty lines in my spreadsheet by creating a do while loop macro. I want the macro to find the last filled row and delete all other rows which are empty. Pls help. Thanks

hi, you could try below code which delete the entire row for empty in cells, you can chane the value for 50 and cell D1.




Dim x As Integer

'move to the upper most cell of last columne of data
Range("D1").Select

For x = 1 To 50
   If ActiveCell.Value = "" Then
       'Delete entire row
       ActiveCell.EntireRow.Delete
       x = x + 1
  Else
       ActiveCell.Offset(1, 0).Select
   End If
Next x

End Sub

Quote:

[1]Posted by tcottam on 29 Apr 2005 05:51 PM[/1]
I am using excel to see if two large spreadsheets have changed.  I am setting up an =if(exact.... statemenet to do lookups.  The problems is that when one spreadsheet that has an #N/A as one the values returns an #N/A and then it interrupts my lookup.  

I want to write a VB macro that will scan the document for values of #N/A and delete the contents of the cell if there is a #N/A.

Thanks in advance.  

This should be simple to do...without a macro.  Just setup a nested IF statement to ignore #N/A values.  For instance: IF(ISNA(EXACT(A1))=TRUE,"",EXACT(A1)).  This may or may not work for what you are trying to do but you didn't explain what you are looking for in depth so if this doesn't work, give more detail about your problem

Hi, how do I increment the row value so that I check rows continously?

My code looks something like:

   Do While Count <= 1000
       Count = Count + 1
       If Range("B2").Text = ".com/xSer" Then
       Rows("2:2").Select
       Selection.delete Shift:=x1Up

But instead of having "B2", I'd like to have the 2 increment to B3, B4, B5 etc.

Can anyone help me? Thanks!

Why dont you try using a For loop instead. Something like:

x = o

For x to 100

// What ever you want to do

Next x

Makes it very easy.

I am trying to use VB in excel 2003 to check if a cell has a border. I tried the following but it does not work. Can anyone explain how I should be doing this?

Code:

ActiveCell.Borders(xlEdgeLeft).Color = RGB(0, 0, 0)

If ActiveCell.Borders(xlEdgeLeft).Color = RGB(0, 0, 0) Then ActiveCell.Borders(xlEdgeRight).Color = RGB(0, 0, 0)

Thanks,
Andy

You need to first write a code to select the entire range, then


Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete



Regards,

Charu

This might not be the place to ask this question, but here goes...

I'd like to put a macro in an excel worksheet that limits the time someone can use the sheet. that is, I have a "demo" of a product that I want to send to some folk, but i don't want them to have the product for too long, or rather i don't want them to be able to use it indefinitely.

How can I write a macro to set an expiration date? And will that do what i want anyway?

Hi

What i am trying to do is use a formula to grap cells a specific distance apart, and then use autofill to copy these cells.  Currently, I am doing it by hand as I cannot work out a formula.

So I need to take something like this (shown as formula view) :

=cellB1       =cellF1        =cellJ1

=cellC1       =cellG1       =cellK1

I then want to be able to drag this across using autofill.