Excel'le Adım Adım Program Yazma

Hücredeki ilk harfleri büyük yazar.

Option Explicit

Sub ChangeText_Proper()
Dim cCell As Range
Dim TheRg As Range

'// Incase No constants of type text in the selection!
On Error Resume Next
Set TheRg = Selection.SpecialCells(xlCellTypeConstants, 2)
If TheRg Is Nothing Then MsgBox "Yazı yok mu desem!", vbCritical: Exit Sub
On Error GoTo 0

For Each cCell In TheRg
cCell = Application.WorksheetFunction .Proper(cCell)
Next

MsgBox "Tamam!", vbInformation

End Sub

AÇIKLAMA FORMUNU KAPAR.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Boş olan satırları gizler.

Sub satirgizle()
Dim i As Integer
For i = 1 To 15
If Sheets("Sayfa1").Cells(i, 1).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("Sayfa1").Rows(i).Hidden = True
End If
Next i
End Sub

Boş olan sütunlar  gizler.
Sub sütüngizle()
Dim i As Integer
For i = 1 To 15
If Sheets("Sayfa1").Cells(1, i).Value <> "" Then
Coloumn(i).Hidden = False
Else
Sheets("Sayfa1").Coloumn(i).Hidden = True
End If
Next i
End Sub

Sayın Hocam; Excel konusunda çok az bilgim var. Aslında 3-4 aydır merak etmeye başladım. Kendime not takip düzeneği hazırlamaya çalışıyorum. Ekdeki dosyayı incelerseniz, proje notu girilmeden ortalamayı hesaplatamıyorum. Yani 0 girersem ortalama düşecek girmezsem ortalamayı hesaplatamıyorum. Yardımcı olursanız sevinirim

Sayın Hocam; Excel konusunda çok az bilgim var. Aslında 3-4 aydır merak etmeye başladım. Kendime not takip düzeneği hazırlamaya çalışıyorum. Ekdeki dosyayı incelerseniz, proje notu girilmeden ortalamayı hesaplatamıyorum. Yani 0 girersem ortalama düşecek girmezsem ortalamayı hesaplatamıyorum. Yardımcı olursanız sevinirim

Değerli hocam öncelikle excelle uğraşmanız beni sevindirdi.Ben çalışma kitabınızın açılışındaki formülleri yazarak sorununuzu hallettim.Eğer takıldığınız başka konular olursa yardımcı olmaya çalışırım.
Düzenlenmiş hali;

Değerli hocam öncelikle excelle uğraşmanız beni sevindirdi.Ben çalışma kitabınızın açılışındaki formülleri yazarak sorununuzu hallettim.Eğer takıldığınız başka konular olursa yardımcı olmaya çalışırım.
Düzenlenmiş hali;

Sayın Hocam; Öncelikle ilgine içten teşekkür ederim.
Hocam ben sıkıntımı tam olarak doğru anlatamadım
Şöyle düşünmüştüm; birinci dönem proje zorunlu değil. Ve ben öğrenciye proje notu girmeyince dönemin genel ortalaması bulunmuyor. Yani çizelgede proje not bölümleri boş geçilemiyor. Bunu düzeltebilirseniz sevinirim. Teşekkürler...

Sayın Hocam; Öncelikle ilgine içten teşekkür ederim.
Hocam ben sıkıntımı tam olarak doğru anlatamadım
Şöyle düşünmüştüm; birinci dönem proje zorunlu değil. Ve ben öğrenciye proje notu girmeyince dönemin genel ortalaması bulunmuyor. Yani çizelgede proje not bölümleri boş geçilemiyor. Bunu düzeltebilirseniz sevinirim. Teşekkürler...

Değerli Hocam "Sayfa1" bakar mısınız?
Düzenledim.

Değerli Hocam "Sayfa1" bakar mısınız?
Düzenledim.

Hocam şimdi oldu. Çok çok teşekkür ederim.

Hocam şimdi oldu. Çok çok teşekkür ederim.

Ben teşekkür ederim değerli hocam. Yine de yardımcı olabileceğim bir konu olursa elimden geleni yaparım...

sayın yaar23 hocam. elimde şöyle bir dosya var. sarı sütunlara sayı yazdığımda ortalamaya katılmasını, yazmadığımda ise ortalamaya katılmamasını istiyorum. yardımcı olur musunuz?

sayın yaar23 hocam. elimde şöyle bir dosya var. sarı sütunlara sayı yazdığımda ortalamaya katılmasını, yazmadığımda ise ortalamaya katılmamasını istiyorum. yardımcı olur musunuz?

Değerli Hocam dosyanızı düzenledim.Bir sorun olursa elimden geleni yaparım.

hocam harikasınız. yalnız, yuvarlama olmasın. yani 86,6000'ı olduğu gibi göstersin.87 yapmasın.

hocam harikasınız. yalnız, yuvarlama olmasın. yani 86,6000'ı olduğu gibi göstersin.87 yapmasın.

Peki değerli hocam hemen bakayım!

Değerli Hocam dosyanızı düzenledim.Bir sorun olursa elimden geleni yaparım.

Değerli hocam yuvarlama yapmadan düzenledim.
Olup olmadığını haber verirseniz sevinirim...