ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤£ª¾¹D­þ¸Ì¥X¿ù¤F, ½Ð°ª¤â«üÂI

[µo°Ý] ¤£ª¾¹D­þ¸Ì¥X¿ù¤F, ½Ð°ª¤â«üÂI

Private Sub CommandButton1_Click()
On Error Resume Next

If CheckBox1.Value And ComboBox1.Text = "" Then MsgBox "02 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
If CheckBox2.Value And ComboBox2.Text = "" Then MsgBox "03 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
Application.ScreenUpdating = False
With Sheet8
  If CheckBox1.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=3, Criteria1:=ComboBox1.Text
  If CheckBox2.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=7, Criteria1:=ComboBox2.Text
    .Range(.[a2], [h65536].End(3)).Copy

End With
   
    Sheets.Add After:=Sheets(Sheets.Count)
    If ComboBox1.Text <> "" Then
    ActiveSheet.Name = ComboBox1.Text
    Else
    ActiveSheet.Name = ComboBox2.Text
    End If
    [a1].Select
    ActiveSheet.Paste
Sheet8.Activate
    Sheet8.Range([a1], [l65536].End(3)).AutoFilter
    Sheets(ComboBox1.Text).Activate
    Unload Me
    Application.ScreenUpdating = True
End Sub

§Ú¬O·Q§â¿z¿ï¥X¨ÓªºªF¸ê®Æ³£copy¨ì·sªºsheetªº,
¦ý¤£ª¾¹D¬°¤°»ò¿z¿ï¥X¨ÓªºªF¦è³£¨S¿ï¤¤, ¥ucopy¤FÀY¤@¦æ

¦^´_ 1# darigaaz

§ï¥Î .UsedRange.Copy À³¸Ó´N¥i¥H¤F

TOP

§Ú I ~ CCÄæ¬O¦³ªF¦èªº, ¦ý§Ú¤£·Q§â¨º¨ÇªF¦è¤]copy¨ì·sªºsheet¤W

TOP

¦^´_ 1# darigaaz

§A¥i¥H¥ý¦b  .Range(.[a2], [h65536].End(3)).Copy
«e­±¥[¤@¦æ Stop¡A¥ý¬Ý¬Ý¨ì©³¦³¨S¦³¿z¿ï¥¿½T

¤]¦³¥i¯à¬O .End(3) ¥X°ÝÃD(ª©¥»xlUp¤~·|¬O3)¡A¥i¥H³£§ï¬° .End(xlUp) ¬Ý¬Ý

¤£µM´NªþÀɬݬÝ
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

§Ú I ~ CCÄæ¬O¦³ªF¦èªº, ¦ý§Ú¤£·Q§â¨º¨ÇªF¦è¤]copy¨ì·sªºsheet¤W
darigaaz µoªí©ó 2015-2-5 12:19


¨º´N¥Î .UsedRange.columns(1:8).Copy

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD