
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Kodlar ekteki txt dosyasındadır.
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Kodlar Excel dosyasında yer almaktadır.
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
'Burada geçen makro aşağıda yer almaktadır. Bu kodları kopyalarak işlemi gerçekleştirebilirsiniz.
'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.
Function Renkli_Hucreleri_Say(bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
'DİKKAT: Bu fonksiyon 2 parametrelidir ve önce bölgeyi seçin, sonra da hangi renkteki hücreleri sayması gerekiyorsa _
o renkte bir hücreyi işaretleyin. Örneğin A1:A100 arasındaki sarı renkteki hücreleri saymak istiyorsanız ve sarı renkli _
hücreniz ise C10 hücresi ise herhangi bir hücreye =Renkli_Hucreleri_Say(A1:A100;C10) yazın.
Dim datax As Range
Dim xcolor As Long
xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
For Each datax In bolge
If datax.Interior.ColorIndex = xcolor Then
Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
End If
Next datax
End Function
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
'Program Kodları aşağıdaki gibidir:
'''''Modül içerisine yazılacak kod'''''''''''''''''''''''''''''''''''''''''''''
Global yol As String
Sub resim_degistir()
On Error Resume Next
strPic = "Resim 2"
Set shp = ActiveSheet.Shapes(strPic)
With shp
t = .Top
l = .Left
h = .Height
w = .Width
End With
If yol = "" Then Exit Sub
ActiveSheet.Shapes(strPic).Delete
Set shp = ActiveSheet.Shapes.AddPicture(yol, msoFalse, msoTrue, l, t, w, h)
shp.Name = strPic
End Sub
''''Sayfa içerisine yazılacak kod'''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim satir As Long
If Not Intersect(Target, Range("A1:A60000")) Is Nothing Then
satir = Target.Row yol = Range("B" & satir).Value
resim_degistir
End If
End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'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.
Private Sub Worksheet_Activate()
For k = 1 To 100 '**** 100 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Cells(2, 2).Interior.ColorIndex = 6
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(2, 2).Interior.ColorIndex = xlNone
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Next k
End Sub
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Sub Index_Sayfasi_Olustur()
Dim ws As Worksheet
Dim x As Integer
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name
x = x + 1
Next ws
End Sub
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
'Excel'de klasördeki dosyaların adını getirme, klasördeki dosyalara link verme, dosya isimlerini dizme
Sub Klasor_Indexle()
On Error Resume Next
Dim stDir As String
Dim stFile As String
Dim R As Range
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Dim fldr As FileDialog
Dim klasor_adi As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.Show
klasor_adi = fldr.SelectedItems.Item(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder(klasor_adi)
' puts hyperlinks to each of the files in a directory of your choice
' into the active sheet starting at the active cell
Set R = ActiveCell
stDir = klasor_adi
stFile = Dir(stDir & "\*.*")
Do Until stFile = ""
R.Hyperlinks.Add R, stDir & "\" & stFile, , , stFile
Set R = R.Offset(1)
stFile = Dir()
Loop
R.CurrentRegion.Sort key1:=R, order1:=xlAscending, Header:=xlNo
Selection.EntireColumn.AutoFit
End Sub
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
'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.
Sub A_dan_Z_ye_Sirala()
Dim iMax As Integer
Dim tb1 As Integer
Dim tb2 As Integer
Application.ScreenUpdating = False
iMax = ThisWorkbook.Sheets.Count
For tb1 = 1 To iMax
For tb2 = tb1 To iMax
If UCase(Sheets(tb2).Name) < _
UCase(Sheets(tb1).Name) Then
Sheets(tb2).Move before:=Sheets(tb1)
End If
Next tb2
Next tb1
Application.ScreenUpdating = True
End Sub
Sub Z_den_A_ya_Sirala()
Dim iMax As Integer
Dim tb1 As Integer
Dim tb2 As Integer
Application.ScreenUpdating = False
iMax = ThisWorkbook.Sheets.Count
For tb1 = 1 To iMax
For tb2 = tb1 To iMax
If UCase(Sheets(tb2).Name) > _
UCase(Sheets(tb1).Name) Then
Sheets(tb2).Move before:=Sheets(tb1)
End If
Next tb2
Next tb1
Application.ScreenUpdating = True
End Sub
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Sub kitapta_aranan_kelimeyi_indeksle()
On Error Resume Next
Dim bulunan_adres() As String
Dim sayfa As Worksheet
Dim hucre As Range
Dim aranan_deger As String
Dim bulunan_adet As Long
Dim klm
Dim sag_sutun As Long
Dim WrdArray() As String
Dim bln As Long
Dim hesapla
hesapla = Application.Calculation
Application.Calculation = xlCalculationManual
'DİKKAT: Birden fazla kelime girerse onları da algılasın. Ayrıca orada yazan kelime tam olarak bir Comment olarak görünsün.
bulunan_adet = 0
aranan_deger = InputBox("Lütfen Aradığınız Kelimeyi Giriniz.", "Kelime Arama", "Değer")
sag_sutun = InputBox("Lütfen aranan kelimenin kaç sağ sütununun getirileceğini yazınız.", "", "1")
aranan_deger = Application.WorksheetFunction.Trim(aranan_deger)
If Len(aranan_deger) <= 1 Then
MsgBox "Lütfen doğru bir değer giriniz."
Exit Sub
End If
WrdArray = Split(aranan_deger, " ")
For Each sayfa In Worksheets
For Each hucre In sayfa.UsedRange
If IsError(hucre) Then GoTo devam
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
bln = 0
For i = 0 To UBound(WrdArray)
If (turkce_karakter_duzenle(hucre.Value) Like "*" & turkce_karakter_duzenle(WrdArray(i)) & "*") And Not IsError(hucre.Value) Then
bln = bln + 1
End If
Next i
If bln >= UBound(WrdArray) + 1 Then
Selection.Offset(bulunan_adet, 0).Value = sayfa.Name & "!" & hucre.Address
Selection.Offset(bulunan_adet, 0).Hyperlinks.Add Selection.Offset(bulunan_adet, 0), "", "'" & sayfa.Name & "'!" & hucre.Address
Selection.Offset(bulunan_adet, 1).Formula = "='" & sayfa.Name & "'!" & hucre.Offset(0, 1).Address
Selection.Offset(bulunan_adet, 0).AddComment
Selection.Offset(bulunan_adet, 0).Comment.Visible = False
Selection.Offset(bulunan_adet, 0).Comment.Text Text:=hucre.Value
Selection.Offset(bulunan_adet, 1).Formula = "='" & sayfa.Name & "'!" & hucre.Offset(0, sag_sutun).Address
bulunan_adet = bulunan_adet + 1
bln = 0
End If
' If turkce_karakter_duzenle(hucre.Value) Like "*" & turkce_karakter_duzenle(aranan_deger) & "*" Then
' Selection.Offset(bulunan_adet, 0).Value = sayfa.Name & "!" & hucre.Address
' Selection.Offset(bulunan_adet, 0).Hyperlinks.Add Selection.Offset(bulunan_adet, 0), "", "'" & sayfa.Name & "'!" & hucre.Address
' bulunan_adet = bulunan_adet + 1
' End If
devam:
Next hucre
Next sayfa
Selection.EntireColumn.AutoFit
Selection.Offset(0, 1).EntireColumn.AutoFit
Application.Calculation = hesapla
End Sub
Function turkce_karakter_duzenle(kelime As String) As String
kelime = Application.WorksheetFunction.Substitute(kelime, "Ç", "ç")
kelime = Application.WorksheetFunction.Substitute(kelime, "Ğ", "ğ")
kelime = Application.WorksheetFunction.Substitute(kelime, "I", "ı")
kelime = Application.WorksheetFunction.Substitute(kelime, "İ", "i")
kelime = Application.WorksheetFunction.Substitute(kelime, "Ö", "ö")
kelime = Application.WorksheetFunction.Substitute(kelime, "Ş", "ş")
kelime = Application.WorksheetFunction.Substitute(kelime, "Ü", "ü")
turkce_karakter_duzenle = Application.WorksheetFunction.Trim(LCase(kelime))
End Function
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Temelden Uzmanlığa Excel Eğitimi için: https://www.udemy.com/excel-egitimi-temelden-uzmanlga-kadar/
Excel, iş hayatının vazgeçilmez bir parçasıdır. Hemen her meslek grubu Excel'i yoğun şekilde kullanmaktadır. Buna karşın Excel'i çok iyi bildiğini iddia edenler bir çok kişi Excel'in sadece %5'ini kullanmaktadırlar.
Yaklaşık 14 yıldır Excel ortamında yüzlerce program yazdım ve binlerce kişiye bu tecrübelerim doğrultusunda eğitimler verdim. Günümüzde de ülkemizde önde gelen bir çok tanınmış firmanın danışmanlık hizmetlerini vermekteyim. Buradan edindiğim bilgiler doğrultusunda iş hayatında insanları en çok zorlayan ve saatlerini alan işlemleri nasıl saniyelere indirdiğimi de göreceksiniz.
Excel, sadece bir program olmayıp, iş hayatında kalem-kağıt kadar gereklidir ve Excel'i bilmek, okuma-yazmayı bilmek kadar önemlidir. Bu doğrultuda, Excel'i gerçek anlamda hakkıyla kullanmak istiyorsanız, sizi bekliyoruz.
Excel’de hayallerin sınırlarını aşarak işlerinizi saniyelere düşürebilirsiniz. Yüzlerce kişinin yaptığı işleri Excel sayesinde tek başınıza yapabilirsiniz.
İkinci kurs ücretsiz! Bu kursu satın aldığınızda ikinci kurs ücretsizdir. Yapmanız gereken, satın alım sonrası ücretsiz almak istediğiniz kursu bana mesaj ile bildirmektir. Ücretsiz tercih edebileceğiniz kurslar:
1. Excel Eğitimi - Temelden Uzmanlığa Kadar
2. Excel Makro (VBA) - Temelden Uzmanlığa Kadar
3. Şirket Değerleme Eğitimi
4. Finansal Okuryazarlık, Finans Matematiği, Analiz / Modelleme
5. Business Plan (Proje Finansmanı, Kaynak Planlama, Değerleme)
6. İş Hayatında Stratejik Planlama ve Analitik Çözüm Üretme Eğitimi
7. İş Hayatında Excel
8. Excel Power Query
9. MS Word Temelden Uzmanlığa
10. Şirket Değerleme ve Finansal Strateji Geliştirme
11. MS Outlook - Temelden Uzmanlığa
12. MS PowerPoint - Temelden Uzmanlığa
13. Yeni Excel ile Veri Analizi