چیدن داده های تکراری

[h7h]

میشه نمونه فایل رو بذارید

[iranweld]

این هم فایل مورد نظر

Private Sub CommandButton1_Click()

Dim xx As String

xx = ComboBox1.Value

z1 = sheets(xx).Cells(sheets(xx).Rows.Count, "A").End(xlUp).Row

Z2 = sheets("data").Cells(sheets("data").Rows.Count, "A").End(xlUp).Row + 1

sheets(xx).Range("b3:e" & z1).copy Destination:=sheets("data").Range("b" & Z2)

Z3 = sheets("data").Cells(sheets("data").Rows.Count, "A").End(xlUp).Row

sheets("data").Range("f" & Z2 & ":f" & Z3) = xx

sheets("data").Range("f" & Z3).Select

Unload Me

End Sub 

[h7h]

سلام میشه یه توضیحی راجع به ساختن فایل مالیاتی که زحمتش رو کشیدین بگید چون میخوام بقیه ماهها و سال هم اضافه کنم.در ضمن کمبو باکس

بصورت پیش فرض فروردین رو انتخاب کنه.با سپاس فراوان

[iranweld]

با سلام

در نام شیت خود ، نام سال را نیز اضافه کنید (فروردین 95)
یا در جدول خود یک ستون برای ماه و یک ستون برای سال اضافه کنید.

کد ذیل را برای پیش گزیده کمبوباکس به فروردین تغییر دهید

ComboBox1.Value = ComboBox1.List(0) 

Private Sub UserForm_Initialize()


For i = 1 To sheets.Count

If sheets(i).Name <> "Data" And sheets(i).Name <> "report" Then

Me.ComboBox1.AddItem sheets(i).Name

End If

Next

ComboBox1.Value = ComboBox1.List(0)


End Sub 

[h7h]

سلام لطفا کد حذف کردن اطلاعات شیت دیتا بجز سطر اول و دوم یا سطرهای دلخواه بوسیله ماکرو در command button

[iranweld]

با سلام

از کد ذیل استفاده کنید

Private Sub CommandButton2_Click()

Dim xx As String

xx = InputBox("First row Number and "":"" and End Row Number", "Delete rows data", "3:8")

If xx = "" Or InStr(xx, ":") = 0 Then GoTo 0
     
    Rows(xx).Delete Shift:=xlUp
    
    Range("A3").Select
    
0

End Sub