سلام و وقت بخیر
یک ماکرو دارم که اطلاعات را از یک جدول به یک شیت انتقال میدهد. میخواهم بعد از انتقال فایل ذخیره شود. متشکرم از همکاری شما
یک ماکرو دارم که اطلاعات را از یک جدول به یک شیت انتقال میدهد. میخواهم بعد از انتقال فایل ذخیره شود. متشکرم از همکاری شما
کد PHP:
Range("B7:X7").Select Selection.Copy Sheets("MAX").Select Range("A1").Select If (Range("A2").Value = "") ThenRange("A1").SelectElseSelection.End(xlDown).SelectEnd If ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("A").Select Application.CutCopyMode = False Range("C7:X7").Select Selection.ClearContents Sheets("A").Select Range("C7").SelectEnd Sub