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

Soru:Arkadaşlar Merhaba,

Bir soruna takıldım. Excelin kendi fonksiyonlarıyla uğraştım yapamadım.

Soru şu : A1 hücresine doğum yeri ve tarihi yazılacak. Örneğin; A1 hücresine “Bursa 01011970” yazılacak. (dikkat edilirse tarihler arasına nokta koymadım) Entere basıldığı an; “Bursa 01.01.1970” şeklinde olması gerekir. Yani noktayı kendiliğinden koyacak. Acaba bunu makroyla yapmak mümkün müdür?

NOT : Doğrudan hücre içerisine yazılacağı için excelin kendi formülü çözüm teşkil etmiyor.

Hepinize saygılarımı sunuyorum…

Cevap:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True ActiveCell.Replace What:=".", Replacement:="" ActiveCell.Value = Mid(ActiveCell, 1, Len(ActiveCell) - 9) & " " & Left(Right(Right(ActiveCell.Value, 8), 8), 2) & "." & Left(Right(Right(ActiveCell.Value, 8), 6), 2) & "." & Right(Right(ActiveCell.Value, 8), 4) End Sub Kodlar: Bülent Öztürk