cellsr

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...

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...

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...

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...

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...

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"...

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...

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...

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...

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...

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...

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...

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...

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...

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...

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...

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...

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...

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...

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...