Search:

Type: Posts; User: DanteAmor; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.06 seconds.

  1. Re: [VBA] Reducing >1 "Y" flags to just one

    Try this

    <br /><table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold; width:30px; " /><col...
  2. Re: Loop through a range of cells and skip blank cells.

    I'm confused.
    What is the real name of the regions. That is, in the headers from AQ1 to DV1.
    Do you have:
    ET1-MOBILITY
    or
    ET Equipment
    or
    Region 1
  3. Replies
    4
    Views
    88

    Re: For-Next loop Syntax error

    I did not understand very well the duplicate sheets. But I suppose that if the sheet already exists then you have to increase the second counter.


    The logic of the following macro is different...
  4. Re: Best way to calculate rolling 6 months average

    I hope it is not much trouble changing those texts to date.
  5. Re: Create a separate worksheet for every unique name in Column A and copy data to each worksheet

    Try this

    change in the code "Main Sheet" for the name of your main sheet



    Sub Create_separate_worksheet()
    Dim c As Range, sh As Worksheet, Ky As Variant

    Set sh = Sheets("Main...
  6. Re: Loop through a range of cells and skip blank cells.

    A couple of questions:
    - Each region on a new sheet?
    - Which columns should be copied?
  7. Replies
    4
    Views
    88

    Re: For-Next loop Syntax error

    The code has other problems.



    If you explain what you need to do, maybe we can help you with all the code.
  8. Replies
    1
    Views
    49

    Re: Change Font Color

    Try the following, to change the font color of the column C according to column B



    Sub test_color()
    Dim c As Range
    For Each c In Range("C2", Range("C" & Rows.Count).End(xlUp))
    ...
  9. Replies
    2
    Views
    56

    Re: Code not working

    Try this:

    Change "abc" to your sheet password



    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address(0, 0) = "I19" Then
    ...
  10. Replies
    4
    Views
    85

    Re: Help with Worksheet Deactivate

    If you are on another sheet you cannot do this:

    Sheet5.Range ("I1: I500"). Select
    But I give you an option:
    Try this



    Private Sub Worksheet_Deactivate()
    Application.ScreenUpdating =...
  11. Replies
    4
    Views
    173

    Re: VBA Loop if then

    Try this please:



    Sub Mapping_Manager()
    Dim sh1 As Worksheet, c As Range, exists As Boolean
    Dim r As Range, f As Range, cell As String
    Set sh1 = Sheets("Raw")
    For Each c In...
  12. Replies
    8
    Views
    148

    Re: VBA Script Error - Run Time Error 1004

    The problem is in the "Create_Contents_Action" macro of the book "Maydew House_password abc"

    In the code there is no line to unprotect the sheets.
    The sheets in the book are protected.
    I think...
  13. Re: Concatenate a string of text from one col., from corresponding text in another col. that matches a cell

    Thanks Peter_SSs, for opening my eyes, in my 2007 version of Excel I don't have that formula, that's why I thought it was impossible with a single formula.
  14. Replies
    4
    Views
    85

    Re: Help with Worksheet Deactivate

    What is the problem?


    In these lines you have to indicate on which sheet you want to work:



    ActiveSheet.Unprotect "123"
    Columns("I:I").Select
    Selection.Sort Key1:=Range("I2"),...
  15. Re: Best way to calculate rolling 6 months average

    Try this

    <table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold; width:30px; " /><col...
  16. Replies
    7
    Views
    86

    Re: Email file if checkbox = true

    I'm glad to help you. Thanks for the feedback.
  17. Replies
    7
    Views
    86

    Re: Email file if checkbox = true

    Private Sub CommandButton1_Click()
    For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
    'Begin your code to send mail
    '
    '
    MsgBox "User : " &...
  18. Re: Concatenate a string of text from one col., from corresponding text in another col. that matches a cell

    With just one formula, you could not concatenate several results. You would have to concatenate several formulas or put a formula in each column.
    The other option is with a macro.
    Try this macro.
    ...
  19. Replies
    7
    Views
    86

    Re: Email file if checkbox = true

    You're right, the checkboxes you're creating on the Form, I thought you were creating them on the sheet. Forget this comment.



    Me.Controls.Add("Forms.CheckBox.1"


    But better use a listbox,...
  20. Re: Loop through a range of cells and skip blank cells.

    Try this



    Sub Loop_range()
    Dim sh1 As Worksheet, sh2 As Worksheet, ar As Range, j As Long
    Set sh1 = Sheets("Source")
    Set sh2 = Sheets("ET target")
    For Each ar In sh1.Range("B1",...
  21. Re: Concatenate a string of text from one col., from corresponding text in another col. that matches a cell

    You could help us with some examples of what you have in each sheet (sheet1 and sheet2) and in a third image what you expect of result.

    You could upload a copy of your file to a free site such...
  22. Replies
    7
    Views
    86

    Re: Email file if checkbox = true

    It is not necessary that you create checkbox in the sheet and have several chceckbox in the userform.


    You can have a ListBox the list of users and each one with a "checkbox", that way you can...
  23. Re: VBA Code to send email based on cell not working

    I'm glad to help you. Thanks for the feedback.
  24. Re: Paste Vales in same row, different columns

    I'm glad to help you. Thanks for the feedback.
  25. Replies
    16
    Views
    239

    Re: A very Strange ":"

    On Excel 2007

    =-" :0" is 0.000694444
    =-" :1" is -0.04097222

    I do not see any relation :confused:
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4