شناسایی آخرین ردیف اطلاعات

[~M*E*H*D*I~]

RE: شناسایی آ---ین ردیف اطلاعات

سلام
همون روشی که من بالا گفتم دقیقا همین کارو میکنه دیگه منظور شما چیزی غیر از اینه؟

[mokaram]

RE: شناسایی آ---ین ردیف اطلاعات

من یه فایل دارم که ازa1 تا z1 تو سر ستونها کد مشتریها قرار گرفته یعنی خونه اول هر ستون یه کد مشتری هست و زیر هر کد هم مبالغ واریزی هر مشتری ثبت شده یه فرم برامکه تو تکست باکس ۱ کد مشتری وتو تکست باکس ۲ مبلغ واریزی.
چه کدی میتونم بنویسم که با زدن کد مشتری و مبلغ واریزی بیاد کد را پیدا کنه و مبلغ واریزی را تو آخرین خونه اون ستون بیاره
ممنون

[ACE]

سلام من می خوام آخرین سلول ستون a رو انتخاب کنم و در b1 کپی کنه ...میشه راهنمایی نمایید

[generalsamad]

با سلام
این فرمول رو در سلول b1 وارد کنید

=lookup(2;1/(a:a<>"");a:a) 

=lookup(2;1/(1-isblank(a:a));a:a) 

[generalsamad]

با سلام
از این کد هم میتونید استفاده کنید
این کد مقدار آخرین مقدار در ستون a رو در سلول B1 همان شیت قرار میده

Private Sub CommandButton1_Click()
Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Range("b1") = Cells(LastRow, 1)
End Sub 

[ayubtanha]

سلام دوستان ممنون میشم منو هم راهنمایی بفرمایید.من فرمی دارم که چند تکست باکس داره میخوام کاربر وقتی روی باتن ثبت کلیک کرد مثلا عدد تکست باکس یک در ردیف a2 در شیت2 ذخیره بشه و وقتی عدد جدید وارد کرد با زدن ثبت در سل a3 و همینطور به سل بعدی

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

Private Sub CommandButton1_Click()

Z1 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1
Z2 = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row + 1

If Z1 = 1 Then Z1 = 2
If Z2 = 1 Then Z2 = 2

If Z1 > Z2 Then
Z = Z1
Else
Z = Z2
End If

Sheet2.Range("A" & Z) = TextBox1.Value
Sheet2.Range("B" & Z) = TextBox2.Value

TextBox1.Value = ""
TextBox2.Value = ""

End Sub