I have found a solution. I would like to share with you;
Sub write()
On Error Resume Next
sat = [h1:h65536].Find("").Row
Cells(sat, "h") = [sayfa2!a1] + [sayfa2!b1] + [sayfa2!c1]
End Sub
Thank you very much for your help:))
"chijanzen" wrote:
Asu:
Another method,
r = Range("H65536").End(xlUp).Row
Cells(r + 1, "H").Select
--
天行健,君*以自強不息
地勢坤,君*以厚德載物
http://www.vba.com.tw/plog/
"Asu" wrote:
Hi;
I need to find first empty cell in h cloumn in the active sheet and it needs
to write the value which comes from another sheet in the same workbook.
Thanks