fixing code link two checkboxes with dynamic in column works only one row

[leap out]

hi experts
I hope some body fixing my codes I have two checkboxes when I check 1 it adds only from row2 in column e and if I checkbox2 it replaces the value in row2 in column e it should add in row3,4...and so on

Private Sub CheckBox1_Click()
Dim lr As Integer

lr = Range("a" & Rows.Count).End(xlUp).Row + 1
If CheckBox1.Value = True Then
CheckBox2.Value = False
Range("k1").Value = Range("k1").Value + 1
Range("e" & lr) = "paid invoice" & Range("k1").Value
End If
End Sub

Private Sub CheckBox2_Click()
Dim lr1 As Integer

lr1 = Range("a" & Rows.Count).End(xlUp).Row + 1
If CheckBox2.Value = True Then
CheckBox1.Value = False
Range("k2").Value = Range("k2").Value + 1
Range("e" & lr1) = "unpaid invoice" & Range("k2").Value
End If
End Sub

 

[dmt32]

Hi,
try changing following line of your code to look at column E & see if this solves your problem

lr = Range("e" & Rows.Count).End(xlUp).Row + 1

Dave

 

[leap out]

impressive many thanks buddy

 

[dmt32]

impressive many thanks buddy

welcome glad resolved

Dave

 

[leap out]

hi dmt again
actually I mod my code but it gives me error I no know if you can help what I want if I select checkbox1 and the column g is filling values then add in column e and checkbox2 is unselected this works but when I select checkbox2 and column f is filling value it gives me error in this line

If CheckBox2.Value = True And Range("F" & lr) <> "" Then

this is the final code

Private Sub CheckBox1_Click()
Dim lr As Integer

lr = Range("E" & Rows.Count).End(xlUp).Row + 1
If CheckBox1.Value = True And Range("G" & lr) <> "" Then
CheckBox2.Value = False
Range("k1").Value = Range("k1").Value + 1
Range("e" & lr) = "paid invoice" & Range("k1").Value
End If
End Sub

Private Sub CheckBox2_Click()
Dim lr1 As Integer

lr1 = Range("E" & Rows.Count).End(xlUp).Row + 1
If CheckBox2.Value = True And Range("F" & lr) <> "" Then
CheckBox1.Value = False
Range("k2").Value = Range("k2").Value + 1
Range("e" & lr1) = "unpaid invoice" & Range("k2").Value
End If
End Sub

 

[dmt32]

Hi,
looking at your code you have not entered your variable name lr1 correctly in the Range

lr1 = Range("E" & Rows.Count).End(xlUp).Row + 1
If CheckBox2.Value = True And Range("F" & lr) <> "" Then

You can overcome such errors by Declaring Option Explicit at the TOP of your code page & then the compiler will inform you of missing variables.

Dave

 

[leap out]

ahh sorry I lost my focus I try learning how can I write the code
thanks again for your help