cellsr

  1. S

    Meeting uploader not emailing required attendees

    Hi all, I've found some VBA code that I've catered to my own "Schedule Uploader" using the inputs in the table below to create meeting invites to Microsoft Outlook calendars. My one problem is that the required attendees are not getting the meeting emailed to them, and thus it is not showing up...
  2. J

    Userform dependent combo boxes

    Have the following code to try that attempts to allow you to use the drop down in a userform which is dependent on the other. It is setup with an advanced filter in the spreadsheet. The problem I am encountering is that nothing shows in the dropdown box (combo box1), any ideas? Thanks. Private...
  3. E

    VBA Formula with Quotations

    Hi, I'm sure this is a silly one but I can't figure it out. I'm wanting to add the following formula using my macro: =IF(OR(C8>=6,D8>=6),"Strength","") When I convert that into my script it looks like this: Cells(r, 6).Formula = ("=IF(OR(" & Cells(r, 3).Address & ">=6," & Cells(r, 4).Address...
  4. W

    if..then..else error vba

    Hi Anyone able to help me debug my code below? it kept prompting me compile error: else without if where did i make a mistake? Dim s As String Dim r As Long Dim c As Long 'set active sheet Set ws = ActiveSheet 'finds the last row lstrow = ws.UsedRange.Rows.Count c = 2 For r = 1 To...
  5. M

    VBA - combining rows

    Hi guys Probably quite a simple fix for someone who knows VB. I found a really useful macro (thank you hiker95) on this site for combining multiple rows with a unique identifier. It's configured to combine the first 2 columns of each row after the unique ID in column 1. All I need it to do is...
  6. V

    How to create a spreadsheet based on folder names

    I'm using this code for list some folder i need in my spreadsheet <code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console"...
  7. M

    1004 on assignment statement

    Hi there, Any thoughts on why I'm getting a 1004 error on the statement in red? Presumably the same thing is wrong with the three below it. Sub UpdateTier1ResultsM() Dim k1 As Worksheet Dim StartRow As Long, LRow As Long, WMSPCol As Long, MMSEPCol As Long, CDRPCol As Long, WMSScoreCol As...
  8. A

    Using Goal Seek on multiple columns and rows in VBA

    Hello, I have been using a macro for a while now to perform a Goal Seek on several cells in a row one after the other: Sub PTUSeek() Dim Cell, OS, Target, Adj Set Target = [I4:FW4] Set Adj = [I3] OS = Adj.Row - Target.Cells(1).Row For Each Cell In Target.Cells...
  9. G

    Help with Do While loop formula

    Hello, I am trying to incorporate this formula into a VBA Do while loop: =IF(SEARCH("~*",A1),MID(A1,6,4),0) Basically, I want to search the cells on column 1 if it contains an asterisk. If it does, I want to extract 4 numbers out of it. It works fine when I type the formula on a cell, but I...
  10. L

    Using VBA to insert images in a grid pattern

    I am after some help if i may. I'm very new to VBA & trying to get my head round it with not a lot of sucsses. I can edit & add to already written codes so they meet my needs but i have hit a brick wall with this 1. I have a great code found on this forum written by Domenic MrExcel MVP It...
  11. V

    Dependent ComboBox VBA Question

    Afternoon everyone, Im currently using vba to connect two comboboxes in excel. The code is doing what it is supposed to; however, it is still giving me an error code and i cannot wrap my head around it. Private Sub cboSupplier_Change() Dim r As Integer r = 2 Range("M2") = cboSupplier.Value...
  12. F

    VBA Case Loop

    I have 2 columns (F and G) that I would ultimately run this macro on. Column F is formatted as numbers and Column G is %. The macro works on Column F, but returns "Type Mismatch" for G. Not sure what I am doing wrong. Dim LastRow As Long Dim r As Long Application.ScreenUpdating = False...
  13. W

    Upgrading my status board...

    Back in early May, with the help of Mumps and My Answser is this, I was able to create a status board used by our operating room. Because Conditional Formating was not an option, we used VBA that changed the colors of a group of cells based on a drop down box value. The following code works...
  14. R

    Copy outlook e-mail to Excel

    I have this VBA code to get some informations from outlook to excel, but my code is getting na error from "G" column to the end and i don't know why, can anyone help me? Sub Emails_Outlook() 'Carregar e-mails do outlook para o excel Dim appOutlook As Object Dim olNS As Object Dim olFolder As...
  15. R

    Copiar conteúdo do Outlook para Excel

    Bom dia galera, Estou com um código VBA para pegar umas informações do outlook mas ele está dando erro da coluna "G" para frente. Não consigo descobrir o que é, podem me ajudar? Sub Emails_Outlook() 'Carregar e-mails do outlook para o excel Dim appOutlook As Object Dim olNS As Object Dim...
  16. T

    Loop through values in a pivottable and show/hide detail based on condition

    here is my code that used to work, but for some reason now, it is not hiding the detail... For r = TopOfPivotTable To BottomOfPivotTable If Cells(r, 2).Value = "1" Then fname = Cells(r, 1).PivotField.Name Worksheets("Execution for...
  17. M

    Adding comands to a current Macro

    Can I just add "Application.Calculation = xlManual" to the beginning and "Application.Calculation = xlAutomatic" to the end of my macro, below. It is taking for ever to run it because it's getting very large. Thank you. Sub ProcessCash() lR = Cells(Rows.Count, "A").End(xlUp).Row For R = lR To...
  18. P

    Read Sheet for Outlook Email Creation: Error on Recipients.Add

    I am trying to get rid of some Outlook templates and want Excel to read my Sheet and create the email. A compiler error generates on the Add Recipients line. This worked with a meeting for some reason, it let me just refer to the cell. But the olMailItem does not. I don't want to hard code the...
  19. S

    If - multiple criteria for "then" statement - do without loop error

    Even with all the help I've received on this forum, this code is practically finished, but I'm getting the "LOOP WITHOUT DO" error. And I know what that means, I just don't know where in the code the error is being triggered. There are literally no articles I can find commenting on this many...
  20. S

    Generate list of unique values

    I am trying to create a VBA script to do the above but the problem is even with screen updating turned off it takes a long time to run. Here is my code: Sub ListOfUniqueValues() Application.ScreenUpdating = False Dim r As Integer, c As Integer r = ActiveCell.Row + 1 c = ActiveCell.Column Do...

Some videos you may like

This Week's Hot Topics

Top