Sorgu için arama sonuçları: find+combobox

Merhaba, Ondalık format ile ilgili denediğim satırları çıkarttım, karışıklık yaratmaması için. Yapmak istediğim Textbox2 ile Conbobox4 ü çarpıp, ondalık basamakları doğru şekilde textbox4 e yazmak. İlginiz ve ayırdığınız zaman için teşekkür ederim. Private Sub ComboBox1_Click() ' Seçilen ürün...

Selam arkadaslar, Kayit icerisinde Personel adina göre arama yapiyorum, o personel e ait veriler combobox a geliyor. Listbox da da tüm kayitlar görünüyor. istedigim sey su, herahangi, veri aradigim zaman onu combocox a getiriyor fakat listbox ta isaretlesin.. Simdiden cevaplariniz icin...

Selam arkadaslar, ComboBox ile secilen verilerin kayit islemleri basarili bir sekilde calisiyor, sorun su,yapilan kayitta arama yaptigim zaman saat kayitlari haricindeki tüm datalar Combobox a geliyor. txtBaslamasaati.Value ve txtBitissaati.Value combobox a gelmiyor. sanirim format i belirtmem...

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...

Necdet bey. Çok teşekkür ederim fakat sanırım ben durumu yanlış anlattım. Yapmak istediğim şey şu. 5 tane combobox var diyelim 4 combobox birbiri ile bağlantılı çalışıyor. Örneğin Combobox1'de Aydın seçildi Combobox2'de Aydın'ın ilçeleri listeleniyor. Combobox3 ve 4'te aynı mantıkla çalışıyor...

teşekkür ederim çalıştı

Combobox yüklediğim isim listesinden isim seçince o ismi sayfadaki kullanıcılar tablosunda bulup konumlanmasını istiyorum. işlem-1(Sorunsuz Çalışıyor): Comboboxta klavyeden ismin 1-2 harfini yazınca ismi otomatik tamamlıyor ve sonrasında enter'a basınca o ismi sayfada bulup konumlanıyor...

teşekürler levent bey Combobox için formul verebilirseniz yapa bilirim sanırım newdata b sutunundan veri alıyor Private Sub TextBox1_Change() On Error Resume Next METİN1 = TextBox1.Value Set FC2 = newdata("B:B").Find(What:=METİN1) Application.GoTo Reference:=newdata(FC2.Address)...

Arkadaşlar, userform da kayıt ekranı var. kaydet, ara, güncelle butonları mevcut. Ara butonunda yazan kod; Private Sub CommandButtonara_Click() aranan = InputBox("Kayıtlı İli Adını Giriniz", "ARAMA İŞLEMİ") Range("B:B").Find(aranan).Select sil_satir = ActiveCell.Row ComboBoxmahalle.Value =...

Merhaba, şimdi aşağıdaki kod ile combobox1'den yapılan seçimle commandbutton1'e tıkladıgımda istediğim işlevi yapıyor. Burada tıkandığım konu şu. Combobox2, combobox3, combobox4, combobox5 ekleyeceğim. Hepsinde çalışacak kod aynı ama sadece ilgili Sutunları farklı aynı butonda nasıl...

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...

Dim Personel As Worksheet If TextBox1.Text = "" Then Exit Sub Set Personel = Worksheets("Personel") sor = MsgBox(aranan & " T.C. Kimlik Numaralı öğrenci bilgileri için Güncelleme yapılacak mı?", vbYesNo + vbInformation, "Bilgi") If sor = vbNo Then Exit Sub aranan = TextBox1.Text...

Dim imar, emlak As Worksheet Set imar = Sheets("imar") Set alan = imar.Range("a3:a100") Set bul = alan.Find(ComboBox1.Value, Lookat:=xlWhole) For i = 4 To 31 If bul.Offset(1, i - 1) > 0 Then ComboBox2.AddItem imar.Cells(2, i) & "(" & bul.Offset(1, i - 1) & ")" End If Next i bu kod combobox1...

bulduğum veriyi kaydetmek için şöyle bir kod kullanıyorum ve burada da sıra numarası vererek kayıt yapamıyorum. Private Sub CommandButton4_Click() Dim pr As Worksheet Set pr = Sheets("Sayfa2") Dim aranan As String Dim tablo As Range Set tablo = pr.Range("A:D") aranan = TextBox1.Text...

ComboBox nesnesinin üstüne birde TextBox eklemişsiniz. Ne amaçla eklediğinizi bilmiyorum. Bu sebeple ellemedim. Aşağıdaki kodları dosyanıza uyarlarsınız. Hiç bir kontrol kodu eklemedim. Gerekiyorsa kendiniz eklersiniz. Private Sub ComboBox1_Change() TextBox1 = ComboBox1 If ComboBox1...

Bu seferde bu şekilde bir hata mesajı veriyor. Private Sub CommandButton1_Click() Application.DisplayAlerts = False Sheets("TABLO").Select b = WorksheetFunction.CountA(Sheets("tablo").Range("A:A")) Sheets("tablo").Range("a" & b + 1).Select ActiveCell = TextBox7.Value ActiveCell.Offset(0, 1) =...

Bunu stok adı isimli comboboxım change olayına yazacak ve kendi sayfa adları combobox adını felan kendinize göre değiştireceksiniz

Aşağıdaki kod ile Textbox'a yazarak Combobox4'deki isime ait excel satırındaki hücreye açıklama ekliyorum.Fakat combobox4'de o isme ait ve çeşitli tarihlere ait birden fazla kayıt var.Bu kayıtların herhangi birine ulaşamıyorum.Sadece ilk kayıtı Combobox4'den seçerek getirebiliyorum oysa ben o...

Korhan Bey ilginize teşekkürler. Ama benim anlatmak istediğim olay "Combo2" Combobox dan veri seçince, o verinin adresindeki hücre boş ise kendinden önceki ilk dolu hücredeki veriyi getirmesi Yani sütun ve hücre aralığı sabit değil değişken If veri2 = "" Then For s = sat To sat - 20 Step -1...