Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sayfa2")
Dim rowNumber As Long
Dim colNumber As Long
Dim targetCell As Range
Dim searchName As String
Dim searchMonth As String
Dim addValue As Double...
Merhaba arkadaşlar...
Excelde 9 sutundan oluşan bir tablom var bu tablomu userform üzerine 1 adet açılır combobox, 1 adet commandbuton ve 8 adet de textbox yaparak aradığımı daha kolay bulayım dedim ve aşağıdaki kodu yazdım. lakin combobox tan isim seçiyorum ve command butona basıyorum fakat...
i=cells(Range("b1:b251").Currentregion.Rows.Count +1, 1).Select
set bul= Range("b1:b251").Find("", , ,xlwhole)
if Not bul is Noting then. select
Bu şekilde bir kod oluşturdum ama hata veriyor, ben bu sayfada ki B1 ile b251 arasında ilk boş sütünü bulsun ve onun bulunduğu satıra userform ile...
Merhaba
Userform daki butona tıkladığında farklı bir kitapta find ile bulduğu sonuçları userformdaki kutucuklara yazmaya çalışıyorum. İlk kutucuğu yazıyor sonrasını yazmıyor.
Nerede hata yapıyorum?
Yardımcı olabilecek birisi var mı?
Private Sub CommandButton3_Click()
Dim c As Range...
Merhaba üstatlar, Bir konuda yardımınıza ihtiyacım var aşağıdaki formül ile UserForm üstündeki ListBox'da işaretlediğim kişinin adını sayfada bulup M Sütununda "Yasaklı" yazıyor ise işlem yapmasın yazmıyor ise işlemi yapsın istiyorum ama önce ListBox'da seçim yapmasını istiyorum. Ekli formül...
Merhaba
Yapmaya çalıştığım şey şu :
Userform içerisindeki textbox1 içindeki değeri ürün sayfasında c sütununda arayıp bulacak yoksa boş geçecek. Bu kısmı hallettim.
Bulduğum değerin satırında diğer sütunlarda diğer veriler var. Mesela e sütununda adı var vs. Benim diğer sütunlardaki verileri...
Merhaba,
Aşağıdaki kodu UserForm'un kod bölümüne yapıştırarak dener misiniz?
Private Sub CommandButton1_Click()
Set s1 = Sheets("KAYIT")
Set s2 = Sheets("ÖDEME")
ss = s2.Cells(Rows.Count, 3).End(3).Row
For i = 2 To ss
Set c = s2.Rows("1:1").Find(ComboBox1.Value, ...
Set ara = Sheets("ARA").[D2:D65536].Find(TextBox3.Text)
If Not ara Is Nothing Then
ara.Offset(0, 11) = "Bağlandı"
End If
Userform Textbox3 deki metni ARA sayfasında eşleşen satıra "Bağlandı" şerhi ile aktardıktan sonra aktarılan satırın A:N arasını renklendirebilmek için yardımcı olabilir...
Soruyu şöyle anladım.
Excel dosyası sayfa1 sayfasında (değilse kod içinde gerekli yeri değiştiriniz)
Userformdaki Textbox1 de yazan değer aransın.
Varsa bulunan hücrenin 8 sütun sağına Textbox2 deki değer yazılsın.
Userform üzerine 2 textbox ve 1 buton yerleştirdim.
Butona ait kodlar...
Merhaba, Sn. İlgili;
Aşağıdaki kodlar ile kaydet, bul, sil, değiştir, yazdır kriterleri çerçevesinde bir userform oluşturdum.
Gayette güzel çalışıyor.
Fakat tek sorunum bul kısmında mükerrer kayıtların ilk satırını getiriyor. Mükerrer kayıtları şöyle izah edeyim; yüzlerde, binlerce ürün düşünün...
Userform oluşturdum. Combobox yerine TextBox2 deki ismi aratıp sonucu TextBox1 yazdım.
Küçük bir liste hazırladım. Sonuçlar doğru.
Private Sub CommandButton1_Click()
Call Me.EnSonTarih
End Sub
Sub EnSonTarih()
Dim myDate As Date, Bul As Range
Set Bul = Range("A:A").Find(TextBox2)
If Not...
Örnek dosya olmadığı için deneyemiyorum.
Aşağıdak bir userform içindeki Combobox1 deki değer göre çalışan kod var.
Kendinize uyarlarsınız.
Sub EnSonTarih()
Dim myDate As Date, Bul As Range
Set Bul = Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole)
Set Bul =...
rivate Sub ÇIKIŞ_Click()
If D1.Value <> "" Then
Dim Komut As Integer
Dim Mesaj As String
Dim Baslik As String
Mesaj = D3.Value & " adlı personel, veritabanından kaldırılacaktır."
Baslik = "Silme İşlemi"
Komut = MsgBox(Mesaj...
Aşağıdaki Makroyu userform içinde çalıştırabilirsiniz.
Bu arada Enterpolasyon yaptığınızdan ötürü alt ve üst basınç değerlerini girmenize gerek kalmadan direkt Gauge textboxunuzdaki değere en yakın alt ve üst değeri hesaplatarak işlem yaptım.
Sub GaugeEnterpolasyon_1()
Dim g1 As Range, g2 As...
Öncelikle ListBox3 ve ListBox4 deiye tanımladığınız alanlarda TextBox ya da Label nesnesi kullanmanız daha doğru. Zira A2 ve A4 hücrelerindeki iki adet veriyi bu iki alana yazırıyorsunuz
Proje sayısı altındaki mesela TextBox10 olsun
Initialzie olayındaki ListBox3 kodları yerine aşağıdaki tek...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.