0 olan hücreleri geri alma 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. 
 
Type SaveRange
        Val As Variant
        Addr As String
    End Type
    
'   Stores info about current selection
    Public OldWorkbook As Workbook
    Public OldSheet As Worksheet
    Public OldSelection() As SaveRange

Sub ZeroRange()
'   Inserts zero into all selected cells

'   Abort if a range isn't selected
    If TypeName(Selection)  "Range" Then Exit Sub
    
'   The next block of statements
'   Save the current values for undoing
    ReDim OldSelection(Selection.Count)
    Set OldWorkbook = ActiveWorkbook
    Set OldSheet = ActiveSheet
    i = 0
    For Each cell In Selection
        i = i + 1
        OldSelection(i).Addr = cell.Address
        OldSelection(i).Val = cell.Formula
    Next cell
            
'   Insert 0 into current selection
    Application.ScreenUpdating = False
    Selection.Value = 0
    
'   Specify the Undo Sub
    Application.OnUndo "Undo the ZeroRange macro", "UndoZero"
End Sub

Sub UndoZero()
'   Undoes the effect of the ZeroRange sub
    
'   Tell user if a problem occurs
    On Error GoTo Problem

Application.ScreenUpdating = False
    
'   Make sure the correct workbook and sheet are active
    OldWorkbook.Activate
    OldSheet.Activate
    
'   Restore the saved information
    For i = 1 To UBound(OldSelection)
        Range(OldSelection(i).Addr).Formula = OldSelection(i).Val
    Next i
    Exit Sub

'   Error handler
Problem:
    MsgBox "Can't undo"
End Sub

Benzer Sonuçlar
No	Makro Adı
1	0 olan hücreleri geri alma
2	hücre değerini açiklamaya ekleme
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	kapalı dosyalardan verileri toplayarak almak
5	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
6	ehatalıysa formülünün izahı
7	llistede kaç kişi olduğunu bulmanın kısayolu.
8	makro ile aynı olan hücreleri silme
9	tek hücrede yer alan "ad soyad" bilgisini ayrı hücrelere alma
10	Bir Çalışma Sayfasındaki Boş olan ancak Görünür Olmayan Bir Alanı Olan Tüm Hücreleri vurgulayın: Bazen boş olan bazı hücreler bulunur, ancak tek bir alana sahiptirler. Ve, bundan dolayı onları tanımlamak gerçekten zor. Bu kod, çalışma sayfasındaki tüm hücreleri kontrol eder ve tek bir alanı olan tüm hücreleri vurgulayacaktır.
11	Sadece belli bir hücre rengine sahip olan hücrelerin toplamını hesaplamak
12	a1:d20 arasında kırmızı olan hücreleri toplar
13	a1:d20 hücreleri arasındaki arka plan rengi kırmızı olan hücreleri toplar
14	a1:a10 hücreleri arasında 10 olanları 21 yapar
15	ı1:i13 hücrelerinde yazılı yazılı olan veriler 0a eşit değilse 0 yapar çevirir
16	Benzersiz Değerleri Vurgulayın: Bu kodlar, seçimdeki benzersiz bir değeri olan tüm hücreleri vurgulayacaktır.
17	combobox kullanımı
18	veri olan iki ayrı sütunu birleştirme
19	bul-renklendir(hücre aralıklı)
20	şifreli kapali bir dosyadan veri almak

Benzer Sonuçlar

Makro Adı

0 olan hücreleri geri alma

hücre değerini açiklamaya ekleme

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

kapalı dosyalardan verileri toplayarak almak

hücrede bir sonraki ayın gün sayısı kadar gün ilave etme

ehatalıysa formülünün izahı

llistede kaç kişi olduğunu bulmanın kısayolu.

makro ile aynı olan hücreleri silme

tek hücrede yer alan "ad soyad" bilgisini ayrı hücrelere alma

Bir Çalışma Sayfasındaki Boş olan ancak Görünür Olmayan Bir Alanı Olan Tüm Hücreleri vurgulayın: Bazen boş olan bazı hücreler bulunur, ancak tek bir alana sahiptirler. Ve, bundan dolayı onları tanımlamak gerçekten zor. Bu kod, çalışma sayfasındaki tüm hücreleri kontrol eder ve tek bir alanı olan tüm hücreleri vurgulayacaktır.