About adding cell content

[muhittinemmi]

Private Sub CommandButton2_Click()
Dim emmi As Long, Say As Byte
emmi = Range("a45").End(3).Row + 1
if cells(emmi,"a").value<>"" then
msgbox "Satır ekleyin. "
exit sub
end if
Cells(emmi, "A") = ComboBox1.List
Cells(emmi, "C") = TextBox1.Text
Cells(emmi, "D") = TextBox2.Text
     Unload Me
End Sub

How can I add the content of H1 instead of a45 in the code.

H1: variable content, such as a46, a47, a48.

 

[Joe4]

So, are you saying that cell A1 holds the address of the cell you want?
If so, maybe try:

emmi = Range(Range("H1").Value).End(3).Row + 1

 

[muhittinemmi]

thanks problem solved

 

[Joe4]

You are welcome.

 

[muhittinemmi]

Sub Makro3()
'
' Makro3 Makro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    ActiveSheet.Shapes.Range(Array("Picture 9")).Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=6
    Range("A41").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-12
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "ergenekon"
    Range("A2").Select
End Sub

How can I add the content of H2 instead of a41 in the code.

H2: variable content, such as a41, a42, a43.

 

[Joe4]

It should be pretty much the same thing I showed you already, but just with different cell addresses:

    Range(Range("H2").Value).Select

Hopefully, you are starting to see the pattern here.

 

[muhittinemmi]

hi thanks i understand the logic