excel

Userform ve Nesneleri, Hücre Başvurusuyla Renklendirme

01:28

Userform ve Nesneleri, Hücre Başvurusuyla Renklendirme

Excel Userformlarımızı ve üzerindeki nesneleri, çalışma sayfamızda kullandığımız şablon renklerine uygun bir şekilde düzenlemek isteyebiliriz. Userformumuzun renklerini, belirlediğimiz hücrelere doldurduğumuz renklerden alıyor olacak. Excel hücre rengi değişince otomatik olarak userformumuz ve üzerindeki nesneler de hızlı bir şekilde çalışma sayfamızla uyumlu renk paletiyle boyanacaktır... Alttaki Kodları Userformumuzun Initialize bölümüne yapıştırın ve formumuzun referans alacağı hücreleri renklerle doldurun. Alttaki Userform hücre başvurularını kendi sayfa ve hücrelerinize göre düzenlemeyi unutmayın... Esen Kalın...  Private Sub UserForm_Initialize() Dim nesne As Control For Each nesne In Me.Controls If TypeName(nesne) = "TextBox" Then nesne.BackColor = Sheets("bilgiler").Range("l5").Interior.Color If TypeName(nesne) = "Frame" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color If TypeName(nesne) = "CommandButton" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color Next Me.BackColor = Sheets("bilgiler").Range("l4").Interior.Color End Sub
DEVAMINI OKU

Excel Hücreye Çift Tıklayınca Onay (Check) İşareti Koyma

10:57

Excel Hücreye Çift Tıklayınca Onay (Check) İşareti Koyma

Merhaba Excel Dostları. 

Excel Hücrelerine çift tıklayınca onay (check) işareti nasıl yazdırabiliriz?...

 

İleri seviye excel kullanıcıları bu tarz kısa yollara ihtiyaç duyar ve tablolarının etkileşim içerisinde daha dinamik olmasını isterler... :] 

 

Bu cümle içerisinde bir nümayiş var sanırım... 

 

Ben de bu tarz işlevsel kısa yollara ihtiyaç duyduğuma göre, ileri seviye excel kullanıcısı oluduğumu söyledim... 
DEVAMINI OKU

With end with ifadelerinin nesne veya koleksiyonlarla kullanılması

01:01

With end with ifadelerinin nesne veya koleksiyonlarla kullanılması

VBA With ifadeleri, aynı nesne veya koleksiyonla ilgili karmaşık kodları basitleştirmenizi sağlar. Sürekli olarak aynı nesneye gönderme yapmak yerine, bu nesneyi belirleyerek üzerinde bir dizi eylem gerçekleştirmek için bir With… End With ifadesi kullanabilirsiniz. Ortaya çıkan kodun okunması daha kolay olduğu gibi, aynı zamamanda daha da hızlı çalışır. Bir with ifadesinin söz dizimi aşağıdaki gibidir:

TextBox Özellikleri

00:56

TextBox Özellikleri

‘TextBox’a en sondaki hücre değerinin yazdırılması

Private Sub cmdCancel_Click() Unload Me End Sub Private Sub UserForm_Initialize() txtLastValue.Text = Cells( _ Cells(Rows.Count, 1).End(xlUp).Row, 1).Text End Sub ‘Textbox taki satırlara ayrılmış verileri hücrelere yazdırır

Option Explicit Private Sub cmdEintragen_Click() Dim iRow As Integer Dim sTxt As String sTxt = txtText.Text sTxt = WorksheetFunction.Substitute(sTxt, vbLf, "") Do iRow = iRow + 1 If InStr(sTxt, vbCr) Then Cells(iRow, 1).Value = Left(sTxt, InStr(sTxt, vbCr) - 1) sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, vbCr)) Else Cells(iRow, 1).Value = sTxt Exit Do End If Loop Unload Me End Sub Private Sub UserForm_Initialize() txtText.Text = _ "A.Aşkın KÜÇÜKKAYA" & vbCr & _ "Kabataş Ordu" & vbCr & _ "52520" & vbCr & _ "http://www.kod.gen.tr" & vbCr & _ "Excel Ötesi" & vbCr & _ "askinkk@kod.gen.tr" cmdEintragen.SetFocus End Sub ‘Textbox’a sadece rakam girebilirsiniz
DEVAMINI OKU

msgbox özellikleri, (mesaj kutuları)

00:39

msgbox özellikleri, (mesaj kutuları)

msgbox özellikleri, (mesaj kutuları)

Function FileOrFolderName(InputString As String, _

ReturnFileName As Boolean) As String

Dim i As Integer, FolderName As String, FileName As String

i = 0

While InStr(i + 1, InputString, Application.PathSeparator) > 0

    i = InStr(i + 1, InputString, Application.PathSeparator)

Wend

If i = 0 Then

    FolderName = CurDir

Else

    FolderName = Left(InputString, i - 1)

End If

FileName = Right(InputString, Len(InputString) - i)

If ReturnFileName Then
DEVAMINI OKU

Yurtiçi Geçici Görev Yolluğu

05:37

Yurtiçi Geçici Görev Yolluğu

Personellerin yurt içi geçici görev yolluklarını hazırlamak amacı ile hazırladığım bir program. Excele yeni başlayanları düşünerek mümkün olduğu kadar az formül kullanılarak daha ziyade kodlamalarla oluşturulmuş bir çalışmadır.

İndirmek için tıkla
DEVAMINI OKU

Telefon ve adsl ödeme dosyası

05:14

Telefon ve adsl ödeme dosyası

Açıklama: Kendi kurumumda kullandığım excel ve birazda vba kodu kullanılrak hazırladığım Telefon ve Adsl ödemeleri için hazırlanmş excel dosyası.

Özelllikleri;

Ödeme listesi sayfasına girilen fatura listeleri otomatik sayılır ve ilgili bölüme yazılır.

Açılır Kutudan ilgili ayı seçebilirsiniz.

Fatura tutarlarını otomatik toplar

Nakit ve üzerindeki tüm bilgiler otomatik oluşturulur

Nakit üzerindeki Açıklama ve ekler bölümündeki bilgiler otomatik yazdırılır.
DEVAMINI OKU

Combobox'taki değere göre diğer combobox'ların değişmesi

01:56

Combobox'taki değere göre diğer combobox'ların değişmesi

BU DOSYA İLE;

-İlk Açılır Kutudan Seçtiğiniz Kişilerin Yakınlarını diğer açılır kutulara (combobox lara getirebilirsiniz.)

-Sadece seçtiğiniz kişi ile ilgili diğer bilgilere zahmetsizce ulaşırsınız.
DEVAMINI OKU

Nesne Kütüphanelerinin eklenmesi veya çıkarılması

01:44

Nesne Kütüphanelerinin eklenmesi veya çıkarılması

References iletişim kutusunu kullanarak nesne kütüphanelerini ekleyebilir ve çıkartabilirsiniz.

Nesne kütüphanelerini ekleyerek çalışacak ek nesneler kazanabilirsiniz; görmeniz veya kullanmanız gerekmeyen nesne kütüphanelerini çıkartarak da, VBA’in bir projenin kodunu derlerken çözmesi gereken nesne referansı sayısını azaltabilir ve bu şekilde daha hızlı çalışmasını sağlayabilirsiniz.
DEVAMINI OKU

Excel dosyasındaki istenmeyen sayfaların silinmesi

01:36

Excel dosyasındaki istenmeyen sayfaların silinmesi

Soru:

Excel dosyamın açılışında isimleri x ve y olan sayfalar haricinde sayfa varsa bu sayfaların silinmesini nasıl sağlayabilirim?

Cevap:

VBA penceresinde ThisWorkbook bölümünde aşağıdaki kodu yapıştırın
DEVAMINI OKU

öğrenci notları hesaplama

03:10

öğrenci notları hesaplama

şeklinde öğrenci notlarını gösterem bir tablomuz olsun

Yapacağımız işlemleri liste halinde yazalım

1- Endüşük Not 2- Endüşük Not hangi öğrenciye ait 3- Endüşük notu alan öğrenciyi ve aldığı notu rakamla ve yazıyla  birleştir formülünü  kullanarak metnin içine otomatik yazdırmak

DEVAMINI OKU

Excel Userfordan Sayfaya Kayıt

11:01

Excel Userfordan Sayfaya Kayıt
DEVAMINI OKU
Pages 1 of 2 12ileri
Kaydol: Kayıtlar (Atom)