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

[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 

[ayubtanha]

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

[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 

[generalsamad]

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

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

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

[ACE]

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

[mokaram]

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

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

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

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

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

[alisabet]

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

با سلام
این جواب برای مواقعی که ستون مشخصی مد نظر باشه جواب میده اما
اگه ستون مشخص نباشه به عبارتی محدود ای از ستونها به عنوان متغییر معرفی شده باشه اونوقت چطور میشه به آخــرین رکورد رفت؟

اگه امكان داره فايل نمونه بذار تا معلوم بشه ميخواي چكار كني ؟

[mokaram]

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

با سلام
این جواب برای مواقعی که ستون مشخصی مد نظر باشه جواب میده اما
اگه ستون مشخص نباشه به عبارتی محدود ای از ستونها به عنوان متغییر معرفی شده باشه اونوقت چطور میشه به آخــرین رکورد رفت؟

[daghyad]

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

سلام دو تا مطلب اینجا مطرح هست 1- پیدا کردن اخرین سطر 2- پیدا کردن اولین سطر خالی
1- پیدا کردن اخرین سطر
برای پیدا کردن اخرین سطر در یک ستون
r1 = Cells(Rows.Count, "e").End(xlUp).Row
این کد اخرین سطر را پیدا می کنه و اگر بین سطر ها چیزی خالی باشه کاری نداره
2- پیدا کردن اولین سطر خالی در ستون e
Range("e1").Select
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select

End Ifاینجا میگیم اول بیا سلول e1 را انتخب کن اگر e1 که الن سلول اکتیو خالی نبود برو یک سطر پایین تربه این ترتیب اواین سطر خالی پیدا می شه اولی خیلی برای موارد مختلف کاربرد داره و مخصوصا مواقعی که میخواهیم یک محدوده پویا تعریف کنیم با انسفاده از nameنه با فرمول نویسی و استفاده از تابع افست صرفا با کد نویسی مثلا
range("a1:e" & r1( یک محدو ده پویاست و اگر نامی برای ان انتخاب کنیم و اون نام را با vba تعریف کنیم در نمودار ها و لیست های پویا می تونیم ازش استفاده کنیم[hr]
Sub TTT()
Dim r1 As Integer, r2 As Integer
r1 = Sheet1.Cells(Rows.Count, "e").End(xlUp).Row
r2 = Sheet1.Cells(Rows.Count, "e").End(xlUp).Row
Sheet1.Range("a" & r1 & ":e" & r1).Copy
Sheet2.Range("a" & r2 & ":e" & r2).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
این کد جواب شماست این کد اخرین سطر در محدوده تعریف شده را پیدا می کنه و در شیت 2 در اخرین سطر شیت دو پیست می کنه

[Javid Mokhtari]

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

با سلام.
حالا که دوستان روش های مختلفی رو گذاشتن،من هم یه روش از طریق رشته ها رو به اشتراک میگذارم.شاید یکم پیچیده بیاد اما هدفم ارائه یک روش دیگه هستش(البته یه ایراد هم داره).
LastRow&Column

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

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

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

Sub FindLastCell()
Dim lRow As Long, lCol As Integer, mrow As Long, mCol As Integer, i As Integer
lCol = ActiveSheet.UsedRange.Columns.Count
mrow = 0
For i = 1 To lCol
lRow = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row

If lRow > mrow Then
mrow = lRow
mCol = i
Else
End If
Next i

lastrow = mrow

End Sub

[4017]

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

با سلام و تشكر فراوان از استاد محترم

[shamsololama]

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

با سلام و تشكر فراوان از استاد
فقط يه سوال
دستور c.Offset(0, i باعث چه كاري ميشه؟ c اول چه كاريو انجام ميده؟

با درود فراوان
c متغییری است که انتخاب کرده ایم و می توان هر چیز دیگری که برای وی بی مفهوم خاصی نداشته باشد تعریف کرد مثلا می توان بجای c شما b یا T ... استفاده کنید
که در این کد
For each c in sheet1.range("A1:A1000")
c متغییری است که سل های A1 تا A1000 در آن قرار می گیرد
c.offset(0,1)
c هرکدام از سل ها که باشد 0یعنی سطر برابر بر همان سل و 1 یعنی یک ستون جلوتر در واقع با offset سلی دیگر را نسبت به مکان C به ما میدهد

[4017]

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

با سلام و تشكر فراوان از استاد
فقط يه سوال
دستور c.Offset(0, i باعث چه كاري ميشه؟ c اول چه كاريو انجام ميده؟