0.select

I have the below line of code as part of my VBA . As shown below, the first "find " section looks for the word "Paris". When it finds the work Paris, it updates the cell value as France and then moves on to the 2nd "find" section where it looks for the word "London and then updates the cell...

hi sir i have a code here but when i use the path on network the code can't find it but if i use a path not on network it works fine the Bold code is the network path,

Dim rngstart As Range Dim l As Long, strCells As String ActiveSheet.Unprotect Password:="B28" Application.ScreenUpdating = False Set rngstart = ActiveCell l = ActiveCell.Row strCells = "F" & l Range(strCells).Select Rows(ActiveCell.Row).Select...

Sub AddRowForNew() Dim rngstart As Range Dim rng As Range Dim col As Range Dim l As Long, strCells As String ActiveSheet.Unprotect Password:="B28" Application.ScreenUpdating = False Application.EnableEvents = False Set...

Sub AddRowForNew() Dim rngstart As Range Dim l As Long, strCells As String ActiveSheet.Unprotect Password:="B28" Application.ScreenUpdating = False Set rngstart = ActiveCell l = ActiveCell.Row strCells = "F" & l...

Hello, I have a piece of code that I have used successfully many times going through different ranges in excel (mainly containing charts) and pasting theme into powerpoint as images. Now I need to do the same but paste the charts as chart objects instead. Any tips? * Sub open_ppt() Dim...

hi I really hope someone can help me in how to code this correctly, the sub does work perfectly i am pulling a motorcycle from a list and the next one in the list is copied to line 31 this works perfectly when I use the same code for say 300 but for 897 it throws up the error, I just don't know...

I need the text to fit the cells in a range. I need the cell size to remain the same but text font to shrink if it overflows. Cant figure why code below not working Range(ActiveCell, ActiveCell.Offset(60, 0)).Select For Each cell In Selection ShrinkToFit = True Next Thanks for any help Tom

Hi All, VBA help I have a total column in row 664 (this will be variant week to week) I need the VBA to calculate L664 / K664 but like I mentioned the above, it will not be fixed to this row every week. What I have so far is: Range("N1").End(xlDown).End(xlDown).Offset(2, 0).Select...

I have written VBA code to use 4 different dropdown list, then the user of the form selects multiple items. Based upon the selections a match function obtains a code. Everything works except the multiselect depression input section of code. The code continues to elicit the "unable to get match...

Hello, looking for some help to get this code working. The code I have working so far is to check if some specific text is part of a range or not. The saerch tells me if the text is French or English by searching for specific words. This part works and will place the value where the text is...

Hello, I have some data that I want to color once a button is clicked. I want it to go to the next cell and stop once the cell contains an empty string. Here is my code: Private Sub CommandButton1_Click() Dim C As Variant Range("A1").Select C = ActiveCell.Offset(1...

Morning everyone, I hope you're well! I'm looking for a bit of advice on an 'insert a row' code I've been working on. I have a form which is a sequential list of schedules and I'm trying to do two things. 1) Insert a row below the selected cell, clone all the text from the cell above, but give...

Hi all, I have a spreadsheet that is a data set from one person, then a second person checks over the data and makes changes. The code below is comparing the final vs input data. But it is taking a long time to process and I know there is a more efficient way to write this code but it is beyond...

Hi, I'm getting an "Else without If" Error message from the following code. The last Else is where the error points to. I have 2 If's, 2 Elses, and 2 EndIf's, so I can't figure out what the error is. Can you please help? Sub Assign_Zero_Or_One() Dim r As Integer Dim n As Integer r = -1 n =...

Hi all, I'm currently trying to make a macro which autofills a Vlookup from another workbook. I managed to get most of the macro working, except that it would't autofill to the rest of the empty spaces in row BA no matter what I tried. It was to only be the empty cells under the filters setup...

Any idea why this code wont return to the original workbook? Private Sub CommandButton1_Click() Selection.Offset(1, 0).Select Selection.Copy Workbooks("PromoVendorTemplate.xlsx").Activate ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("a2") ThisWorkbook.Sheets("April").Activate End...

I am creating a tool which takes data from worksheets which are stored on a server and pastes them into a single sheet together so that I can work with the data. The issue I am having is a result of the fact that each worksheet comes from a different store and there is no identifier within the...

Hi all, I have a VBA code that has worked for the last 2 or so years but for some reason has decided to not work now on some computers. I have refrained from installing updates on my excel for this reason for approximately 6 months since the update in Sep / Oct created other issues. Attached...

Have the following code Range("A1").Select Set SearchRangeA = Columns("A:A") Dim HeadCoach As String HeadCoach = SearchRangeA.Find(what:="Staff Member").Offset(2, 0).Select ActiveCell.Offset(4, 0).Select What I wish to happen is to search column A to find the cell with the string "staff...