آخرین ارسالها
ما اگه بخوایم یه لیست کرکره ای در یک شیت داشته باشیم که در آن یک سری سلول خاص لیست شده باشند و با انتخاب هر کدام همان سطر در یک سری شیت خاص مخفی و آشکار بشوند باید چکار کنیم؟؟؟؟فایل رو بررسی کنید.
Private Sub TextBox1_Change()
Dim cell As Range
Lastcell = Sheet2.Cells(Rows.Count, "a").End(xlUp).Row
For Each cell In Sheet2.Range("a2:a" & Lastcell)
If cell.Value = Val(TextBox1.Value) Then
TextBox4.Text = cell.Offset(0, 1).Value
TextBox2.Text = cell.Offset(0, 2).Value
TextBox3.Text = cell.Offset(0, 4).Value
TextBox5.Text = cell.Offset(0, 5).Value
End If
Next
End Sub=SUM(IF(A1<$A$1:$A$8;1/COUNTIF($A$1:$A$8;$A$1:$A$8)))+1با اجازه اساتید گرامیما اگه بخوایم یه لیست کرکره ای در یک شیت داشته باشیم که در آن یک سری سلول خاص لیست شده باشند و با انتخاب هر کدام همان سطر در یک سری شیت خاص مخفی و آشکار بشوند باید چکار کنیم؟؟؟؟
فایل رو بررسی کنید.