جلوگیری از تایپ اطلاعات تکراری در ستون... برای این کار روش استفاده از Data Validation به نظرم مفید بود که برایتان توضیح می دهم.1.ستونی را که می خواهید در آن هیچ اطلاعات تکراری تایپ نشود را انتخاب

تابع lookup میخواهیم آخرین متن یا عدد ثبت شده درون ستون Cxa0را پیدا کنیم. قبلا درxa0پست ترفند تابع LOOKUPxa0روش پیدا کردن مقدار آخرین سلول پر گفته شد ولی در این پست میخواهیم آخرین مقدار عددی یا متنی ثبت شده

هر محدوده که بخواهیم در فرمول وارد میکنیمxa0 (LOOKUP(2;1/(DE2:DJ2"");DE2:DJ2=

نحوه فعال سازی آپدیت ویندوز در صورتی که به هر دلیلی از جلوگیری از آپدیت ویندوز منصرف شدید و مایل به فعال سازی آپدیت ویندوز7 بودید: 1- از منوی استارت (Start) وارد کنترل پنل (Control Panel) شوید. 2- گزی

Private Sub Workbook_Open()xa0 xa0 ActiveWindow.DisplayWorkbookTabs = Falsexa0xa0xa0 Application.CommandBars("Ply").Enabled = Falsexa0xa0xa0 ThisWorkbook.Sheets("welcome").Visible = Truexa0xa0xa0 For Each ws In ThisWorkboo

Private Sub CommandButton1_Click()Dim x As Stringx = TextBox1.ValueIf x "0915532" ThenMsgBox "Invalid Password"ThisWorkbook.SaveApplication.QuitApplication.DisplayAlerts = FalseExit SubEnd IfDim C As IntegerFor C = 0 To 500Me.Height = 500 - C - 150Me.Width = 500 - CNextEndEnd SubPrivate Sub UserForm...

Private Sub UserForm_Initialize()Application.ScreenUpdating = Falsexa0xa0xa0 Application.EnableEvents = Falsexa0xa0xa0 Application.AskToUpdateLinks = Falsexa0xa0xa0 Application.DisplayAlerts = Falsexa0xa0 xa0xa0xa0xa0 ActiveWindow

Private Sub CommandButton1_Click()Sheets("ramfish").Unprotect Password:=""RowNumber = TextBox1.ValueIf TextBox1.Value = "" ThenMsgBox "ÔãÇÑå ÓØÑãÔÎÕ äíÓÊ"Sheets("ramfish").Protect Password:=""Exit Sub

Sub close1()Application.CommandBars("Ply").Enabled = TrueEnd Subxa0

copy data sheet mabda to sheet maghsad dar row 3 column 2xa0blankxa0xa0not blankxa0xa0xa0xa0LastCount = Sheets("sheet maghsad").Cells(Rows.Count, 2).End(xlUp).RowSheets("sheet mabda").Range("savabegh_print").CopySh

Sub gotoramfish()sheettoshow = "ramfish"Sheets("ramfish").Protect Password:=""Call HideAllmysheetsEnd SubSub HideAllmysheets()ThisWorkbook.Sheets(sheettoshow).Visible = TrueFor Each ws In ThisWorkbook.SheetsIf ws.Name sheettoshow Then ws.Visible = xlVeryHiddenNext wsEnd Sub

xa0 Set ra = Cells.Find(What:=Sheets("report").Range("p6"), LookIn:=xlFormulas, LookAt _xa0xa0xa0 :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _xa0xa0xa0 False, SearchFormat:=False)xa0xa0xa0 If r

Sub quitSave()Application.DisplayAlerts = Trueanswer = MsgBox("ÂíÇãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbYesNo + vbQuestion, "Exit")xa0If answer = vbYes ThenThisWorkbook.SaveApplication.QuitApplication.DisplayAlerts = FalseEnd IfEnd Subxa0