Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Bu Konuda
Şimdi Ara

Excel Vb kodları ( Çok Acil )

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
19
Cevap
0
Favori
463
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • quote:

    Private Sub CommandButton1_Click()
    Worksheets("ekle").Select
    Dim bak As Range
    For Each bak In Range("a2:a100" & WorksheetFunction.CountA(Range("a2:a65000")))
    If StrConv(bak.Value, vbUpperCase) = StrConv(UserForm2.TextBox12.Value, vbUpperCase) Then
    bak.Select
    UserForm2.TextBox10.Value = ActiveCell.Offset(0, 0).Value
    UserForm2.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm2.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm2.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm2.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm2.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm2.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm2.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm2.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm2.TextBox9.Value = ActiveCell.Offset(0, 9).Value

    Exit Sub

    End If
    Next bak
    MsgBox "Aradığınız sıra noda bir kayıt bulunamadı"
    End Sub


    Arkadaşlar bu benim excel de yaptığım bir örnek için arama kodları ama sanrım bir hata var olmuyor.Bilen varsa acil yardım edebilir mi ???







  • quote:

    Orjinalden alıntı: Greenleaf

    quote:

    Private Sub CommandButton1_Click()
    Worksheets("ekle").Select
    Dim bak As Range
    For Each bak In Range("a2:a100" & WorksheetFunction.CountA(Range("a2:a65000")))
    If StrConv(bak.Value, vbUpperCase) = StrConv(UserForm2.TextBox12.Value, vbUpperCase) Then
    bak.Select
    UserForm2.TextBox10.Value = ActiveCell.Offset(0, 0).Value
    UserForm2.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm2.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm2.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm2.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm2.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm2.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm2.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm2.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm2.TextBox9.Value = ActiveCell.Offset(0, 9).Value

    Exit Sub

    End If
    Next bak
    MsgBox "Aradığınız sıra noda bir kayıt bulunamadı"
    End Sub


    Arkadaşlar bu benim excel de yaptığım bir örnek için arama kodları ama sanrım bir hata var olmuyor.Bilen varsa acil yardım edebilir mi ???



    Hatayıda yazsaydın fazla Kasmazdık :)

    Olası seçenekleri listelerim ama bu çalışmayı görmeden zor !
    1- içerik farkı
    2 - yanlış atama
    büyük ihtimal Hatayı yaz Bakarız



    < Bu mesaj bu kişi tarafından değiştirildi irfanmatak -- 16 Mayıs 2005, 20:02:46 >




  • aslında hata yok olay şu ara diye button oluşturup bunu içine yazınca görevini yapmıyor.Sadece tıklatıp duruyorsun yani...Arama yapmıyor yani...Hata vermiyor.
  • quote:

    Orjinalden alıntı: Greenleaf
    aslında hata yok olay şu ara diye button oluşturup bunu içine yazınca görevini yapmıyor.Sadece tıklatıp duruyorsun yani...Arama yapmıyor yani...Hata vermiyor.


    Sadece arama kodu ile zor eğer örneği E-Mailime atarsan uygun bir zamanda inceler ve fikir veririm.
  • e mailini alabilirmiyim ? msn de olabilir ?
  • Özür dilerim eklemeyi unutmuşum :)


    edit:Sildim !



    < Bu mesaj bu kişi tarafından değiştirildi irfanmatak -- 20 Mayıs 2005, 1:01:28 >
  • Yolladım kontrol et bi :) şimdi den teşekkürler
  • Gönderdiğiniz Dosyayı şimdi uykulu gözlerle inceledim fakat kod felan göremedim !!!
    Acaba ben mi göremedim yoksa dosyada bir iki show ve select methodundan başka kod yokmu?? :)
  • pardon :) yanlış olmuş şimdi doğrusu geliyor.

    Edit : Yolladım.



    < Bu mesaj bu kişi tarafından değiştirildi Greenleaf -- 20 Mayıs 2005, 1:22:48 >
  • quote:

    Private Sub CommandButton1_Click()
    Worksheets("ekle").Select
    Dim bak As Range
    For Each bak In Range("a2:a100" & WorksheetFunction.CountA(Range("a2:a65000")))
    If StrConv(bak.Value, vbUpperCase) = StrConv(UserForm2.TextBox13.Value, vbUpperCase) Then
    bak.Select
    UserForm2.TextBox10.Value = ActiveCell.Offset(0, 0).Value
    UserForm2.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm2.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm2.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm2.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm2.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm2.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm2.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm2.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm2.TextBox9.Value = ActiveCell.Offset(0, 9).Value
    Exit Sub


    Textbox isimleri ile yaptığın atamalar yanlış.Koyu renkle belirttiğim yerlerin isimlerini kontrol et varolup olmadıklarını! koda textbox yazmışsın ama form üzerinde belirtilen isimde nesne yok! nesne isimlerini güzelce bir düzenle önce bence ! yarın akşam devam ederiz incelemeye bugünlük bu kadar zaman ayırabileceğim..

    kolay gelsin...




  • evet onları bende görmüştüm ki düzeltmiştim kayıt etmemişim sanırım neyse sorun o değil onu düzeltince de Arama yapmıo girilen kayıtlar üzerinde..Teşekkür ederim bu kadar zaman ayırman büyük bişey.Yarın o konuda yardımcı olursan sevinirim.

    İyi geceler.
  • Aspci79 acaba bakabildin mi veya başka yardım edebilecek ?
  • Sorunu aşağıdaki siteye sorarsan cevabını hemen alırsın.

    http://www.excel.web.tr/index.php
  • quote:

    Orjinalden alıntı: mert25


    Sorunu aşağıdaki siteye sorarsan cevabını hemen alırsın.

    http://www.excel.web.tr/index.php




    merak etme baktım bu konuyla ilgili nerede ne var biliyorum bulamadığım için açtım zaten saol genede..
  • quote:

    Worksheets("ARA").Select
    Dim bak As Range
    Dim a As Integer
    a = 0
    '&
    'Worksheets("Ekle").Range("A1:A10000")
    For a = 0 To WorksheetFunction.CountA(Range("a1:a65000"))
    bak.Value = bak.Value + 1
    If UserForm1.TextBox13.Value = ActiveCell.Offset(0, a) Then
    bak.Select
    UserForm1.TextBox13.Value = ActiveCell.Offset(0, 0).Value
    UserForm1.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm1.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm1.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm1.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm1.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm1.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm1.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm1.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm1.TextBox9.Value = ActiveCell.Offset(0, 9).Value
    a = a + 1
    End If
    Next a
    If UserForm1.TextBox12.Value = "" Then
    MsgBox "Aradığınız sıra noda bir kayıt bulunamadı"
    End If


    Veridiğin örneğe göre biraz deiştirdim kendi mantığıma göre ; Burada dikkat edilecek 2 husus var
    1. si nesne isimlerini kendine göre düzenle öncelikle !
    2. si kasıtlı olarak 1 run bir mantık hatası bıraktım kod içerisinde bu kodun ödev olduğunu düşünerek onlarıda kendin bulursun artık zahmet olmassa ;)

    Kolay gelsin...




  • Çok sağol yarın denerim artık bulurum bu kadarını bile yapman çok güzel bişey çok saol çok saol
  • Aslında o kodlar pek içime sinmedi Hafta sonunun verdiği rahatlıkla biraz daha inceledim kodları ! :)

    Worksheets("EKLE").Select

    Dim bak As Range
    Dim x As Integer
    x = 0
    For Each bak In Range("A1:A10")
    bak.Select

    x = x + 1
    If UserForm1.TextBox13.Value = Columns("A" + x) Then -> hata burada
    MsgBox "Kayıt Bulundu !!! "
    bak.Interior.ColorIndex = 8

    'kayıt bulununca ne olacaksa onu yaz....
    End If

    Next bak

    Senin koduna göre bu şekilde kısalttım ben biraz daha olayın mantığını anlaman açısından ! Bu sefer hata yerini de gösterdim. Biraz incelersen basitçe bulabilirsin ...
    Kolay Gelsin...
  • Kişisel mesajın kapalı olduğu içi buraya yazmak zorunda kaldım. Gönderdiklerim iletilemedi.

    If UserForm1.TextBox13.Value = bak.Text Then

    :)


    Kolay gelsin...
  • teşekkürler

    ben onun adına teşekkür edeyim tanımıyorum gerçi ama
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız