sayfada renklendirilmesini istediğiniz sayıyı msgboxa yazınız Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Option Explicit
Option Compare Text
Sub Check_Values_1()
    On Error Resume Next
    Dim CurCell As Range
    Dim Heading As String
    Dim Prompt As String
    Dim Criteria As Variant
    Dim Color As Long
    Dim lRows As Long
    Dim lCols As Long
    Dim lAllCells As Long
    lRows = ActiveSheet.Rows.Count
    lCols = ActiveSheet.Columns.Count
    lAllCells = lRows * lCols
    If Selection.Cells.Count = lAllCells Then
        MsgBox "To check the entire sheet, please select only one cell", 64
        Exit Sub
    End If
    Heading = "Enter Criteria"
    Prompt = "Enter the value you want to find and highlight."
    Color = 3
    Criteria = InputBox(Prompt, Heading)
    If Criteria = "" Then
        Exit Sub
    ElseIf IsNumeric(Criteria) Then
        Criteria = CLng(Criteria)
    ElseIf IsDate(Criteria) Then
        Criteria = CDate(Criteria)
    Else
        Criteria = CStr(Criteria)
    End If
    If Selection.Cells.Count > 1 Then
        For Each CurCell In Selection
            If CurCell.Value = Criteria Then CurCell.Interior.ColorIndex = Color
        Next CurCell
    Else
        For Each CurCell In ActiveSheet.UsedRange
            If CurCell.Value = Criteria Then CurCell.Interior.ColorIndex = Color
        Next CurCell
    End If
End Sub

Benzer Sonuçlar
No	Makro Adı
1	sayfada renklendirilmesini istediğiniz sayıyı msgboxa yazınız
2	Inputbox'la sayfa bulma
3	sayfa silme inputbox'a yazarak
4	renkli hücreye sadece rakam girme: msgbox
5	süzlü aktarma
6	forma otomatik resim getirme
7	istediğiniz sayfa hariç sayfadaki verileri temizler
8	istenilen hücreye gitme
9	gitmek istenilen hücreyi seçer
10	yüklü yazıcı var mı yok mu
11	makronun otomatik olarak açılması ve çalışması
12	otomatik makro her 10 saniyede
13	makroları otomatik açılması, çalışması, kapanması
14	a sütununa pir yazınca makro çalışsın
15	aynı makroyla birden çok sayfaya kayıt yapmak
16	veri bulur
17	Özel Sayfaları Yazdır: Yazdırma seçeneklerinden ayarı kullanmak yerine, bu kodu, özel sayfa aralığı yazdırmak için kullanabilirsiniz. 5 ila 10 arasındaki sayfaları yazdırmak istediğinizi varsayalım. Sadece bu VBA kodunu çalıştırmanız ve başlangıç sayfası ve bitiş sayfasını girmeniz yeterlidir.
18	Hücre (değeri, içindeki ifade vb.) değiştiği zaman makro çalıştırma / Hücre değiştiğinde çalışan makro
19	userformdan userforma
20	4. satır da işlem yapılırsa makro otomatik çalışsın

Benzer Sonuçlar

Makro Adı

sayfada renklendirilmesini istediğiniz sayıyı msgboxa yazınız

Inputbox'la sayfa bulma

sayfa silme inputbox'a yazarak

renkli hücreye sadece rakam girme: msgbox

süzlü aktarma

forma otomatik resim getirme

istediğiniz sayfa hariç sayfadaki verileri temizler

istenilen hücreye gitme

gitmek istenilen hücreyi seçer

yüklü yazıcı var mı yok mu