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

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

هر محدوده که بخواهیم در فرمول وارد میکنیم

(LOOKUP(2;1/(DE2:DJ2<>"");DE2:DJ2=

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

Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False Application.CommandBars("Ply").Enabled = False ThisWorkbook.Sheets("welcome").Visible = True For Each ws In ThisWorkbooادامه مطلب

Private Sub CommandButton1_Click()
Dim x As String
x = TextBox1.Value
If x <> "0915532" Then
MsgBox "Invalid Password"
ThisWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
Exit Sub
End If
Dim C As Integer
For C = 0 To 500
Me.Height = 500 - C - 150
Me.Width = 500 - C
Next
End
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "Enter Password", vbCritical
End If

End Sub
Private Sub UserForm_Activate()
Me.Top = 50
Me.Left = 50
Dim C As Integer
For C = 0 To 500
Me.Height = C - 150
Me.Width = C
Next
End Sub

Private Sub UserForm_Initialize()Application.ScreenUpdating = False Application.EnableEvents = False Application.AskToUpdateLinks = False Application.DisplayAlerts = False 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 = True
End Sub

copy data sheet mabda to sheet maghsad dar row 3 column 2 blank not blank LastCount = 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 HideAllmysheets
End Sub
Sub HideAllmysheets()
ThisWorkbook.Sheets(sheettoshow).Visible = True
For Each ws In ThisWorkbook.Sheets
If ws.Name <> sheettoshow Then ws.Visible = xlVeryHidden
Next ws
End Sub

Set ra = Cells.Find(What:=Sheets("report").Range("p6"), LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If rادامه مطلب

Sub quitSave()
Application.DisplayAlerts = True
answer = MsgBox("ÂíÇãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbYesNo + vbQuestion, "Exit")
If answer = vbYes Then
ThisWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
End If
End Sub