Search results

Hi, new2access123, to my knowledge by using shapes. But what about using Conditional Fomatting in these cells with an UserDefined Function? Public Function AF_KRIT(CellRange As Range) As String 'Thomas Ramel Dim s_Filter As String s_Filter = "" On Error GoTo Ende With...

Hi, Thedda, hope I got it solved. Ciao, Holger

Hi, Matt, ALT+F11 still gets you straight to the VBE (as well as right-clicking on a Workbook Tab/Show Code). ;) Office, Excel Options, Popular, place a check-mark to Show Developer Tab in the Ribbon. Ciao, Holger

Hi, Matt, code goes into a module by what I know about it. Here´s a version which I put in comments (it´s not only Column A which is sorted, it should read the range sorted with Criteria in Column A): Sub Matt() Dim rng As Range, rngCur As Range Dim lngRow As Long 'turn off Flicker...

Hi, Ashfaque, set the security level for Excel to medium and allow macros when opening the workbook. Please use this altered code which should do fair enough for checking in column B from row 10 on. Right-Click the WorkbookTab and paste the code in there, it will only be available in the sheet...

Hi, Matt, the following code from Hans W. Herber sorts the data on Column A and passes the data on to the sheets (all I did was change the name after copying): Sub Matt() Dim rng As Range, rngCur As Range Dim lngRow As Long Application.ScreenUpdating = False Set rngCur =...

Hi, Ashfaque, if it´s entered by the user you could use the following code which will check for any change in B10 (code goes behind the sheet where the action should take place): Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target...

Hi, Brian, no problem. ;) There are 2 things to my opinion which restrict the usage of the macro. It will not take care of the actual amount of used data (rows) in the sheet and will fill all rows with data (97-2003: 2^16 rows, 2007: 2^20 rows) but maybe that´s what OP wanted. AFAIK and more...

Hi, Brian, no need to select a Column or work through the whole lot of rows on it: Dim newValue As String Dim c As Range newValue = Range("B1").Value For Each c In Worksheets("sheet1").UsedRange.Columns("B:B") I wonder if the following code wouldn´t do the trick as well (could be done as well...

Hi, kenpachi, if VBA is okay: Example Code for sending mail from Excel. Ciao, Holger

Hi, awake2424, could you please explain a bit more detailed with If digits are not displayed correctly please check if all data in Access hast the same format as Excel will only use the top rows to determine if it´s digits or text to display. Ciao, Holger

Hi, JPaulo, With Target If .Count = 1 Then Debug.Print "Column: " & .Column & vbTab & "Row: " & .Row End If End With Ciao, Holger

Hi, thatlem, seems to me that all decisions will depend on what has been chosen in the columns to the left (except for Column A). My first thought would be to use either Autofilter oder Advanced Filter for displaying all data. If you want the behaviour in each single row to my knowledge you´ll...

Hi, laxster, I´m out of any thread from your side in the future and this one in particular - just another proc causing trouble you didn´t care to mention. Bye Holger

Hi, laxster, maybe I haven´t been very clear on this one but AFAIK you only need to set the Protect-Method in the Workbook_Open-Event (as it will never be saved when the workbook is closed, and using Unprotect with UserInterfaceOnly isn´t what should be used): Private Sub Workbook_Open()...

Hi, laxster, use the Workbook_Open-Event to protect the worksheets and use the additional Parameter UserUnterfaceOnly:=True which will allow macro code to run oin the protected sheets. As this option is not saved with the workbook it has to be set on each opening (with activates macros). Ciao...

Hi, laxster, first of all no sheet can be saved or closed, only a workbook can. Use the Workbook_BeforeClose(Cancel As Boolean)-event in ThisWorkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) With ActiveSheet 'check for any Autofilter If .AutoFilterMode Then...

Hi, taulant01, are these sheets protected? Ciao, Holger

Hi, Ginny , the ChDir will always work on the drive selected. So you should use ChDrive first to go to the drive and then ChDir: Const cstrPATH As String = "Z:\SAP_HR\Ginnys_Folder\" ChDrive Left(cstrPATH, 1) ChDir cstrPATH Ciao, Holger

Hi, laxster, use Worksheet-Events and OnTime for this. Code for ThisWorkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) SetBack End Sub Private Sub Workbook_Open() StartProc End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)...