.cellsr

Hi, I am trying to do a tricky part and I really need help here. I am trying to check how many blanks there are below the current cell, and if there is more than 6, then run some code. If there is not more than 6, I will check for 5, then 4 and so on until 0. I thought I could add this as an IF...

Hi, I have the following code. What it does is that it automatically adds a new row when some conditions are fullfilled. This works good, but I am having problem with the next step, which is to copy and paste the value in "D35" To the new created row in column "AB". As you can see below, after...

Hi there, I'm trying to manipulate some code (At bottom) I found within another thread on this site to meet my personal requirements. Can someone explain what the various bits do please? (Additional Info: I have a file with 28 columns (A:AF), I'm trying to look at 3 columns (A, F & H) and if...

Hello, Is it possible to populate datas inside cells(starts from K2) instead of listbox with the given sample below code? Private Sub CommandButton1_Click() Dim r As Long, Ac As Long, c As Long If ComboBox1.Value <> -1 And ComboBox2.Value <> -1 Then ListBox1.Clear With...

Private Sub CommandButton1_Click() Dim r As Long, Ac As Long, c As Long If ComboBox1.Value <> -1 And ComboBox2.Value <> -1 Then ListBox1.Clear With Worksheets("reports").Range("A1:A1000") ReDim Ray(1 To .Count, 1 To 6) For r = 1 To .Rows.Count...

Good Day, Below code is running at userform but on worksheet module its not running... What would be the reason. I simply put on worksheet 2 combo and 1 listbox Is there anything that I need to add? Private Sub CommandButton1_Click() Dim r As Long, Ac As Long, c As Long If ComboBox1.Value...

This code is to take the user input from the InputBox and then compare them with the last two characters of the contents of two consecutive rows. Then copy all those rows with the match. But the version down here only deals with it when the match is found in the first two rows of the dataset...

Application.ScreenUpdating = False Dim r As Long, Ac As Long, c As Long If ComboBox10.Value <> -1 And ComboBox11.Value <> -1 Then ListBox2.Clear With Worksheets("taxibyname").Range("A1:A5000") ReDim Ray(1 To .Count, 1 To 11) For r = 1 To .Rows.Count...

Private Sub CommandButton3_Click() Dim r As Long If ComboBox1.Value <> -1 And ComboBox2.Value <> -1 Then ListBox1.Clear With Worksheets("list").Range("A1:A30000") For r = 1 To .Rows.Count If ComboBox1.Value = .Cells(r, 1).Value And ComboBox2.Value...

Hello, i'm completely new to VBA I receive the following error 1004 Application-defined or object-defined error. the following code is processing this error. What needs to be accomplished is that assumes that he is 100% minus the value in the previous cell is value in cell a b c d 50...

Hello, i'm completely new to VBA I receive the following error 1004 Application-defined or object-defined error. the following code is processing this error. Cells(1, lastcol + 1) = "xxxxxx" Columns(lastcol + 1).NumberFormat = "0%" lastcol = .Cells(1...