ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[osmanlixxx]

Valla üstadlardan yardım bekliyoruz.

[Ali ÖZ]

Yeni konu açıp talebinizi yeniden yapabilirmisiniz.Bu şekilde çokca mesajı takip etmek gerekiyor.

[atakansn]

Merhabalarbu forma Optionbuttonlardan cinsiyet eklemek istiyorum nasıl yaptırabilirim ?

[raicaip]

Elinize sağlık...

[byemin68]

tarkan bey merhabalar forumda yeniyim bir konuda sizden yardım alabilirmiyim sizin için çok basit bir konu

[byemin68]

Merhaba arkadaşlar ekteki dosyada bana yardımcı olacak varmı ? VB de yeniyim .... Userformdan kayıt yaptırmak istiyorum . . . Yardımcı olabilecek varmı ?

[mehmet18]

Elinize Sağlık..

[by_erman]

İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.

Kod: Tümünü seç

Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Select
        Selection.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
    End If
Next bul
End Sub

Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Offset(0, -1).Activate
        bul.Offset(0, 1).Value = TextBox1.Value
        bul.Offset(0, 2).Value = TextBox2.Value
        bul.Offset(0, 3).Value = TextBox4.Value
    End If
Next bul
End Sub

Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.

Tarkan bey ve değerli arkadaşlar merhaba

Öncelikle yapmış olduğunuz çalışma neticesinde teşekkür etmek isterim. Bir talebim mevcut. Çok anlamadığım bir işlem olduğundan sizden ricada bulunmak istedim. Yapmış olduğunuz userform a bir buton eklenip başka bir sayfa da belirlemiş olduğumuz hücreye aktarım yapabilirmiyiz? Örnek olarak kayıt açtık kaydettik sonra bulduk en sonra aktar diye bir buton koysak ve belirlemiş olduğumuz hücre içine yazsa olabilirmi?

[aytacguven]

Merhaba,

Öncelikler emeğiniz ve bilginiz için teşekkür ederim, ancak benim bir problemim var.

Aynı formda aynı sorguları nasıl çoğaltabilirim yani örnek verecek olursam 1 formda 3 adet sorgu (combobox ve textbox) ları var bul dediğimde 3 ünde nasıl buldura bilirim ve nasıl ekleme yapabilirim.

Şimdiden emeğinize ve bilginize sağlık.

İyi günler dilerim.

[orhanars]

İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.

Kod: Tümünü seç

Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Select
        Selection.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
    End If
Next bul
End Sub
Süper bir örnek olmuş. çok teşekkürler Tarkan Bey şkşk
Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Offset(0, -1).Activate
        bul.Offset(0, 1).Value = TextBox1.Value
        bul.Offset(0, 2).Value = TextBox2.Value
        bul.Offset(0, 3).Value = TextBox4.Value
    End If
Next bul
End Sub

Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.

[mehmet042]

HOCAM BİR HARİKAYMIŞ ÖRNEGİNİZ SİZDEN UFAK BİR RİCAM VAR FORM AÇILINCA EXCELİ GİZLESE SADECE FORM GÖRÜNSE SÜPER OLURDU

[mehmet042]

İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.

Kod: Tümünü seç

Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Select
        Selection.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
    End If
Next bul
End Sub

Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Offset(0, -1).Activate
        bul.Offset(0, 1).Value = TextBox1.Value
        bul.Offset(0, 2).Value = TextBox2.Value
        bul.Offset(0, 3).Value = TextBox4.Value
    End If
Next bul
End Sub

Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.

HOCAM ELLERİNİZE SAĞLIK BU FORM AÇILDIĞINDA EXCEL GÖRÜNMESE DE İLK AÇILIŞTA ŞİFTE BASILI TUTTUK MU AÇTIĞIMIZDA GÖRÜNSE HARİKA OLURDU

[mehmet042]

HARİKASINIZ BİRDE FORM AÇILDIMI EXCEL ARKADA GÖRÜNMESE

[zagu2009]

TARKAN ABİM, ELİNE SAĞLIK.
ÇALIŞMALARIN BENİM GİBİ YENİ BAŞLAYANLARA İLHAM VERİYOR. ÇOK TEŞEKKÜR EDERİM.

[lifeislove]

Öncelikle Merhabalar.
Combobox change ile excel hücresindeki verileri textboxlara çağırıyoruz. Ancak textboxlara gelen verileri değiştirip aynı hücre üzerine yazdırabiliyor muyuz ben bunu bir tütlü beceremedim.
Bu konuda yardımlarınızı bekliyorum şimdiden teşekkürler.

[hhd]

çok tesekurler hocam çok iyi bir kolaylık.
kendi sütünlarıma gore duzenledım yeni kayıt ekledigimde bul çalısıyor fakat eskı verılerı kopyalayıp yapıstırnca bul calısmıyor nasıl eklememiz gerek eski verilerimizi.

[hhd]

eski verileri calsıtırmayı basardım fakat 255 . satırdan sonra hata veriyor nasıl duzeltebiliriz.

[hhd]

Dim i As Byte kısmını Dim i As long yaparak duzelttim 255 . satır sorununu
bir buton olusturup combobox1 dekı buldugu satırı çalısma kitabının 2.sayfasına satırdakı verilerin altına nasıl tasıyabiliriz.

[sezayibahar]

Öncelikle Merhabalar.
Combobox change ile excel hücresindeki verileri textboxlara çağırıyoruz. Ancak textboxlara gelen verileri değiştirip aynı hücre üzerine yazdırabiliyor muyuz ben bunu bir tütlü beceremedim.
Bu konuda yardımlarınızı bekliyorum şimdiden teşekkürler.

Merhabalar linkteki konuyu inceleyiniz. Ekli olan Excel dosyasında aramış olduğunuz kodlar mevcuttur.

viewtopic.php?f=78&t=34037

[YILDIRIM88]

Merhabalar,

Dosyayı indirdim, Form bilgilerini değiştirdim.
Ancak datayı da değiştirdiğimde

Runtime error 6
Overflow hatası veriyor.

Yapmak istediğim şekliyle upload etsem düzenleyebilecek olan var mı acaba?

Şimdiden teşekkürler.