excele sayfa koruması mı koymuşlar, aşağıdaki kod bu uğraşları boşa çıkarıyorlar;
Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
26 Kasım 2015 Perşembe
8 Ağustos 2015 Cumartesi
EXCEL'DE BİR HÜCREDEKİ İSİM VE SOYİSİM BİLGİLERİNİ VBA İLE AYIRMAK
SUB ISIMAYIRMA()
Dim degerimiz() As String
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
degerimiz() = Split(ActiveCell.Value) 'split fonksiyonu isimleri birbirinden ayırıyor.. ve her bir isme başlangıçta 1 den kaçtane var ise sıralıyor.
For i = LBound(degerimiz) To UBound(degerimiz) 'Lbound bir değişkendeki en küçük değeri burada 1 değerine dönüşüyor... UBound ise en büyük değeri alıyor ve döngüye başlanıyor.
MsgBox degerimiz(i) 'burada ben msgboxa dönen değerleri yazdırdım görebilmek amacıyla.. burayı silip kullanmak istediğiniz yere yazabilirsiniz..
Next i
ActiveCell.Offset(1, 0).Select
Loop
END SUB
Dim degerimiz() As String
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
degerimiz() = Split(ActiveCell.Value) 'split fonksiyonu isimleri birbirinden ayırıyor.. ve her bir isme başlangıçta 1 den kaçtane var ise sıralıyor.
For i = LBound(degerimiz) To UBound(degerimiz) 'Lbound bir değişkendeki en küçük değeri burada 1 değerine dönüşüyor... UBound ise en büyük değeri alıyor ve döngüye başlanıyor.
MsgBox degerimiz(i) 'burada ben msgboxa dönen değerleri yazdırdım görebilmek amacıyla.. burayı silip kullanmak istediğiniz yere yazabilirsiniz..
Next i
ActiveCell.Offset(1, 0).Select
Loop
END SUB
6 Ağustos 2015 Perşembe
Excel Vba Hücre İçindeki Değerleri Değiştirme
Geçen excelde verileri düzenliyorum. Baktım cep telefonlarının arasında boşluk var. bu boşlukları aldırmak lazım dedim.. sonra aradım ve aradığım VBA kodunu buldum.
Replace ( x , " ","")
bunu yapınca ilaç gibi geldi.
Replace ( x , " ","")
bunu yapınca ilaç gibi geldi.
20 Nisan 2015 Pazartesi
MS EXCEL'DE İLİŞKİLİ VERİ DOĞRULAMA
Excel veri doğrulamada hazırladığımız listeye ad tanımlıyoruz.
Örneğin ÇALIŞANLAR diye bir liste tanımlıyoruz..
Bu listede iki veri olsun,
Ağalar
Marabalar
Sonra Ağaların ve Marabaların bulunduğu alanlar da liste olarak tanımlanır ve bunlara
Ağalar ve Marabalar olarak ayrı ayrı ad tanımlanır.
sonrasında ilk veri doğrulamadan Ağalar seçildiğini varsayalım.. aşağıdaki ikinci veri doğrulamada sadece ağaların ismi çıkması için, yapılacak veri doğrulamada Liste opsiyonu seçilir ve aşağıdaki kutuya şu formül yazılır.
=DOLAYLI ( YUKARIDAKİHÜCRE SEÇİLİR )
Dolaylı formülü ingilizce versiyonlarda indirect( ) olarak kullanılır.
Örneğin ÇALIŞANLAR diye bir liste tanımlıyoruz..
Bu listede iki veri olsun,
Ağalar
Marabalar
Sonra Ağaların ve Marabaların bulunduğu alanlar da liste olarak tanımlanır ve bunlara
Ağalar ve Marabalar olarak ayrı ayrı ad tanımlanır.
sonrasında ilk veri doğrulamadan Ağalar seçildiğini varsayalım.. aşağıdaki ikinci veri doğrulamada sadece ağaların ismi çıkması için, yapılacak veri doğrulamada Liste opsiyonu seçilir ve aşağıdaki kutuya şu formül yazılır.
=DOLAYLI ( YUKARIDAKİHÜCRE SEÇİLİR )
Dolaylı formülü ingilizce versiyonlarda indirect( ) olarak kullanılır.
Kaydol:
Kayıtlar (Atom)