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