Giriş |  Kayıt

Yeni başlık gönder Başlığa cevap ver

28 Tem 2009 16:25

Site Yöneticisi
Kayıt: 20 Kas 2008 13:43
Başlıklar: 132
Mesajlar: 208
Çevrimdışı

Son Sayfa Dışında Tüm Sayfaları Otomatik Gizleyen Makro

Kod: Tümünü seç
Private Sub Workbook_Open()
On Error Resume Next
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Visible = xlVeryHidden
Next
End Sub


A Sütunu ile B Sütununu Karşılaştırıp, Aynı olanları C Sütununa, Farklı olanları D Sütununa Yazdıran Kodlar

Kod: Tümünü seç
Sub bul()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 2).Value) = 0 Then
e = WorksheetFunction.CountA([d2:d65536]) + 1
Cells(e + 1, 4) = Cells(a, 2).Value
End If
If WorksheetFunction.CountIf(Columns(2


Başa Dön Başa Dön
 
 
Eskiden itibaren mesajları göster:  Sırala  
Yeni başlık gönder Başlığa cevap ver
 1. sayfa (Toplam 1 sayfa)  [ 1 mesaj ] 

Tüm zamanlar UTC + 2 saat [ GITZ ]


Kimler çevrimiçi

Bu forumu gezen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 0 misafir


Bu foruma yeni başlıklar gönderemezsiniz
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı düzenleyemezsiniz
Bu forumdaki mesajlarınızı silemezsiniz


Aranacak:
Geçiş yap:  

Site haritası


YGH Forum memurlar Toner windows 8 indir Grafik Tasarım kanal d oyunları silah oyunları araba oyunları ukash ukash kart maurers satılık daire kamp çadırı