Re: Force Focus To Range From Modeless UserForm
thanks
but the trick does not do the job
Re: Force Focus To Range From Modeless UserForm
thanks
but the trick does not do the job
Re: Force Focus To Range From Modeless UserForm
I tried and looked at my past threads, could not find
could you please pass me the link to the answers .
Thank you
Re: Force Focus To Range From Modeless UserForm
ok, Dave...............somtimes I am cannot express it as it should be
any idea why is the problem of the code ?
thanks
Hi there
A userform to move the curser to a column then activate the Excel App and keep the userform visiable.
The problem is when excution the code step by step (F8) works fine, but when excution the code by F5 the cursor moves to the Range("A65536").End(xlUp) and doesnot then move to the required column.
also this line
does not work , it gives me Invalid proceduers or call argument.
Private Sub ComboBox1_Change()
Range("A65536").End(xlUp).Activate
If ComboBox1.ListIndex = 0 Then Cells(ActiveCell.Row, "I").Activate
If ComboBox1.ListIndex = 1 Then Cells(ActiveCell.Row, "J").Activate
If ComboBox1.ListIndex = 2 Then Cells(ActiveCell.Row, "K").Activate
AppActivate ("Microsoft excel")
End Sub
Display More
I appreciate the help of you
Re: Enlarge Cell In Sheet
Thank u Andy
hi there
i am trying to use this code, but it does not work
I would like to enlarge the cell if possible, otherwise the sheet if the condition is thru
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not ActiveSheet.Intersect(Range(Target, Union(Range("B11"), Range("B13")))) Is Nothing Then ActiveWindow.Zoom = 120
End Sub
Thankx
Hi there
i wild like ti enlarge a Range in a sheet ?
and how to enlarge a sheet ?
Hello there
I use Data Validation to Drop a list of names.
Is there a code to make the names appear large font ?
Thank you
Re: Write pc Name In A Cell
Tank you i got my mistake
Hi there
I got this code from somewere in the net, i donot remmber from who, but its not mine
I tried to write the PC name in a cell inside my sheet1, but an error msg tells:
what is my mistake ?
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function ReturnComputerName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetComputerName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnComputerName = UCase(Trim(tString))
End Function
Sub Testem()
Sheet1.Range("83").Value = ReturnComputerName
End Sub
Display More
Re: Intersect Ranges
Thank you very much StephenR
it worked well
Hi there
This code works fine, but it does not look professional.
I tried to write like:
it did not work, but as it is down here it worked
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, rng5 As Range
On Error GoTo NoValidation
Set rng1 = Range("B28:B55")
Set rng2 = Range("D28:D55")
Set rng4 = Range("H28:H55")
Set rng5 = Range("J28:J55")
If Application.Intersect(Target, rng1) Is Nothing Then
If Application.Intersect(Target, rng2) Is Nothing Then
If Application.Intersect(Target, rng4) Is Nothing Then
If Application.Intersect(Target, rng5) Is Nothing Then
Exit Sub
End If
End If
End If
End If
End If
If Target.Validation.InCellDropdown Then Application.SendKeys "%{Up}"
NoValidation:
Err.Clear
End Sub
Display More
Thanks
Re: Difference In Months
Yes, you were right
Thank you Parsnip
Re: Difference In Months
Thank you Parsnip
the result is still 04/01/1900
I need to know how many months between today and the past months ?
Hello there
say C2= 22/02/2007
in cell C4
When I use this formula =TODAY()-C2 to get the difference between today and a past date
the result the formula give is 07/05/1900
i would like to receive the difference in Months between the past date and today? I.E. HOW MANY MONTHS IN BETWEEN
Thank you
Re: Delete Specific Rows
Ok thank you
but what i am looking for is to delete rows using their numbers like Row3 to Row13
i.e. i write from row3 to row13 in inputbox so to delete these specified rows ?
Thank you
Re: Delete Specific Rows
Thanks Dave, but
is it possible to when i need to delete rows an inputbox appears so i can write the rows numbers i want to delete then hit ok to finish the code excution.
Thank you
Re: Delete Specific Rows
Thank you Reafidy and Dave
Dave i know how to use Find, but could you please tell me how to make find the rows i want by their numbers and delete them
i tried this, but it did not work:
Cells.Find(What:="Row.......", After:=Cells(1,1), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Delete
i.e. i need when excute the code an inputbox appears so i can write the rows numbers i want to delete then hit ok to finish the code excution.
Thank you
Hi there
is there a code to chose certain rows using there numbers (Row number 3 to row number 9) to be deleted ?
yes, there is a code to delete the selected rows, but what i am after is a code to chose rows by thier numbers like delete from row3 to row9 ?
Thank you
Re: Remove Spaces From Numbers
i got the point
Thanks, Members
it works as you said