Sayfası üzerinde içerisinde sayı bulunan hücreleri otomatik silmek.

[muhammethezer]

Merhaba Değerli arkadaşlar,
Bir sorum olacaktı?
Excel B5:BZ23 Sayfası üzerinde içerisinde sayı bulunan hücreleri otomatik olarak nasıl silebilirim?

 

[Orion1]

Merhaba Değerli arkadaşlar,
Bir sorum olacaktı?
Excel B5:BZ23 Sayfası üzerinde içerisinde sayı bulunan hücreleri otomatik olarak nasıl silebilirim?

Buyurun.
B5:BZ23 arasındaki sayıları siler.

Sub sayisil59()
Dim hcr As Range
For Each hcr In Range("B5:BZ23")
    If IsNumeric(hcr.Value) Then hcr.ClearContents
Next
MsgBox "Sayılar silindi."
End Sub

 

[muhammethezer]

Değerli hocam, Referanslar!AD3:AD39 arasında bulunan verilerden User form üzerine otomatik olarak Label ve bir altına TextBox oluşturabilir miyiz? Bunun bir makrosu varmıdır?

 

[Orion1]

Değerli hocam, Referanslar!AD3:AD39 arasında bulunan verilerden User form üzerine otomatik olarak Label ve bir altına TextBox oluşturabilir miyiz? Bunun bir makrosu varmıdır?

Yapılır.
Siz userformu ve laballeri ve textboxları hazırlayıp,örnek dosyanızı ekleyiniz.

 

[muhammethezer]

Orion1 Hocam, Yapmak istediğim;
Bir UserFormum var içerisi boş. Bu formun üzerine bir bir Frame olacak. Excel sayfası üzerinde Form Aç butonuna tıkladığımda açılan UserForm üzerine Referanslar!AD3:AD39 kolununda bulunan verilerden Labellara başlık olarak, bir altına da TextBox eklemek istiyorum.

 

[Orion1]

Orion1 Hocam, Yapmak istediğim;
Bir UserFormum var içerisi boş. Bu formun üzerine bir bir Frame olacak. Excel sayfası üzerinde Form Aç butonuna tıkladığımda açılan UserForm üzerine Referanslar!AD3:AD39 kolununda bulunan verilerden Labellara başlık olarak, bir altına da TextBox eklemek istiyorum.

Gerekli nesneleri siz userformu ekleyip,dosyayı ekleyiniz.
Siz nesneleri eklerseniz,bizede kodu yazmak kalır.Nesneleri oluşturmayalım bari.

 

[muhammethezer]

Gerekli nesneleri siz userformu ekleyip,dosyayı ekleyiniz.
Siz nesneleri eklerseniz,bizede kodu yazmak kalır.Nesneleri oluşturmayalım bari.

Hocam amacım zaten form üzerinde Label ve TextBoxları otomatik olarak oluşturmak.

Örnek verecek olursam: Label14.ControlSource = "Referanslar!AD3" kodu kullanarak Label içerisine başlık olarak yazabiliyorum.

 

[Orion1]

Otomatik oluşturmayın.Manuel oluşturun.

 

[muhammethezer]

Merhaba, Aşağıdaki kod bloğu ile Excel Sayfası Referanslar!A3:A39 arasında bulunan verilerden
User form üzerine otomatik olarak Label ve bir adet TextBox ekleyebiliyorum.
Yapmak istediğim işlem, herbir Label'ın karşısına bir adet TextBox eklemek. Ekli dosyada UserForm üzerinde yapmak istediğim işlem ile ilgili bir Label ve TextBox dizilişi bulunmaktadır.


'PLİNT Hocama Kodlara yardım ettiği için teşekkür ederim.


Private Sub CommandButton1_Click()
'Otomatik Label Oluşturuyoruz.
x = 10: c = 3
For a = 3 To Cells(Rows.Count, "A").End(3).Row
Set b = UserForm1.Controls.Add("Forms.Label.1", "Label" & a - 2, True)
With b
.Caption = Cells(a, "A")
.Left = x
.Width = 150
.Top = 13 * c
' .heigth=
.BackColor = vbGreen
End With
c = c + 1
If a = 20 Then x = x + 110: c = 3
Next
Set t = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox1", True)
t.Left = 250
t.Width = 50
t.Top = 30
End Sub