Posts by Balu

Re: Unvisible Menu

:thanx: I will try the code

Balu

Hy,

I wrote a little program in excel and now I want to protect it, when I´m starting it. There should be no posibility to change anything e.g. to save, to change macros, color....

Do you know how I can do that?

:thanx:

Balu

Hy,

I´ve got a question to write a macro which doesn´t allow the user in excel to change anything in the menu, e.g. save, change color, size...

The idea is, that when you open the excel sheet you have to input a pasword. If it´s correct, you can change anything you want, and If not you can only use the program without any posibility to change.

Another little question I have, is that I want to create a Commandbutton in another sheet which closes excel whithout asking to save.

I have used following code

activeworkbook.close

but I don´t want that it´s possible to save the sheet, only to close.

:thanx:
Thanks a lot for your help

Balu

Re: Hyperlink

:thanx: It works perfect

Balu

Hy,

could you help me to find the correct code to open a hyperlink - I´ve got 2 sheets in excel, one with a command button and another with a hyperlink and I want to open the hyperlink in the second sheet when I click the command button...

The code I use is following:

sheets("SAP2").select
range("A1").select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

What went wrong with the code because it doesn´t run??

:thanx: for help

Balu

Re: CommandButton Visible

:thanx: It works perfect

Hy,

I´ve got a little question making a commandbutton visible un unvisible.
I´ve e.g. 2 sheets in Excel and one commandbutton in the first sheet. In the second sheet there is a value which can be "" or a number.
When I click the commandbutton in the first sheet I want to make the commandbutton in the second sheet visible when the value is a number and unvisible when it´s "".
Here is my Code by it doesn´t work:

sheets("SAP 1.1").select
range("D18").select
if activecell.value = "" then
    ActiveSheet.Shapes("CommandButton4").Select
    CommandButton4.Visible = false
else: activesheet.shapes("Commandbutton4").select
        commandbutton4.visible = true
End if
End Sub

Have you got an idea?

:thanx: a lot

Balu

Re: Message while deleting blank rows

Thanks a lot for your help
It works very well.

:guitar:

Hy,

I have made a little code in excel to delete free rows in a sheet and it takes a lot of time. In this time I would find it nice not to see how the rows are deleted. It would be better if there is a massage box for example which shows "Please wait a moment" or something else and after the execution the list whitout the free rows should be showed.

Have you any idea?
Here´s my code for deleting the free rows - if you have a solution which is simplier than this one I would be delighted to simplify it.

Thanks a lot
Balu

Range("C5").Select
If ActiveCell.Value = "" Then
Rows("5:5").Select
    Selection.Delete Shift:=xlUp
End If
Range("c6").Select
If ActiveCell.Value = "" Then
Rows("6:6").Select
    Selection.Delete Shift:=xlUp
End If
...

:thanx:

Re: Copy to the end

Thanks for the code but it doesn´t went right.
VB couldn´t accept following line:

Sheets("SAP 1").Cells(Sheets("SAP 1").Range("A65536").End(xlUp).Row, 1).Activate

It seems that the row couldn´t be activated.

Thx for the help.
Stefan

Hy,

I´ve got a little problem with copying sth. in Excel. I want to copy a table from one Excel-Sheet to another one. The table I would copy includes free rows which I wouldn´t copy to the other sheet, only the rows which includes information.
Does it give one formel to delete the free rows automatically in the other sheet or an order to copy one row to the other sheet to next free row?

For example I have tried to copy one single row to the other sheet but I don´t know the order to copy it always to the next free row (e.g. row 1-4 is full and I want to copy automatically the next row in the next free row).
Here is one example how I have tried to copy but without the order to copy automically to the end.

Rows("5:5").Select
    Selection.Copy
    Sheets("SAP 1").Select

Thanks a lot.
Stefan

Re: Open Macro

Thanks for the help - I have forgot to use the Code tag but from now on I will do it
:thanx:

Hy,

I want to create a link in excel to open another programe, for example SAP.
Which command do I have to use? I tried it with Workbooks.Open but it wasn´t the correct one.

Private Sub CommandButton5_Click()


Workbooks.Open ("C:\Documents and Settings\Escritorio\CSKB.sap")


End Sub

:thanx:

Re: Open Macro

I have tried the code but it doesn´t work - I have many sheets but I only want to adapt the first sheet called "Prog".
In which folder do I have to copy the code in VBA? Do I have to copy it in Hoja1 (Prog) or for example This Workbook?
I have tried it with the code but something went wrong.

Option Explicit


Private Sub Workbook_Open()
Workbooks.Open ("M:\STKDH\Stefan\VBA.xls")
    Sheets("prog").Range("A1:M35").Select
    ActiveWindow.Zoom = True
    
End Sub

Thanks

Hy,

I´ve got a question regarding to Excel. I want to open automatically that Macro, while Excel opens. I want that the selected range automically adapt to the page - what do I have to do?

Range("A1:M35").Select
    ActiveWindow.Zoom = True

This code should be done automaticaly while open Excel.

Thanks
Stefan