InputBox ile veri bulma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

InputBox ile veri bulma

İleti#1)  nihatra » 08 Nis 2019 14:08

Kolay gelsin.
Ekli dosyada InputBox ile bulduklarımı Veri girişi sayfasına nasıl yazdırabilirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: InputBox ile veri bulma

İleti#2)  nihatra » 08 Nis 2019 18:23

MsgBox'a sıra no ,tcno,adı soyadı yazdırabilirsek de olabilir.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: InputBox ile veri bulma

İleti#3)  nihatra » 09 Nis 2019 10:52

inputbox ile bulunan veriyi msgbox ta gösteren örnekleri olanlar var mı acaba
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: InputBox ile veri bulma

İleti#4)  tasad » 09 Nis 2019 12:57

T.C numarasına göre çalışır.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim i As Long
aranan = InputBox("Veri Gir")
  For i = 2 To Sheets("İsim Listesi").Range("b65536").End(3).Row
   If Sheets("İsim Listesi").Cells(i, 2).Text = aranan Then
a = Sheets("İsim Listesi").Cells(i, 1) & "        " & Sheets("İsim Listesi").Cells(i, 2) & "     " & _
   Sheets("İsim Listesi").Cells(i, 3) & "       " & Sheets("İsim Listesi").Cells(i, 4)
   
b = Sheets("İsim Listesi").Cells(1, 1) & "       " & Sheets("İsim Listesi").Cells(1, 2) & "         " & _
   Sheets("İsim Listesi").Cells(1, 3) & "        " & Sheets("İsim Listesi").Cells(1, 4)

MsgBox b & vbNewLine & a
End If
Next
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 598
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: InputBox ile veri bulma

İleti#5)  nihatra » 09 Nis 2019 13:08

Allah razı olsun. Elinize sağlık. Çok Teşekkür ederim. Bu kodu isim soyadına görede düzenleyebilir miyiz.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: InputBox ile veri bulma

İleti#6)  tasad » 09 Nis 2019 13:11

Aynı isim-soyisim olma ihtimalinden dolayı t.c noya göre aramak daha güvenli olur.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 598
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: InputBox ile veri bulma

İleti#7)  nihatra » 09 Nis 2019 13:12

Allah razı olsun. Elinize sağlık. Çok Teşekkür ederim.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: InputBox ile veri bulma

İleti#8)  nihatra » 09 Nis 2019 13:51

Mesajda çıkan yazıları:
S.No:
T.C.No
Adı:
Soyadı:

şeklinde yazabilirmiyiz.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: InputBox ile veri bulma

İleti#9)  tasad » 09 Nis 2019 14:15

Kodları deneyin.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim i As Long
aranan = InputBox("Veri Gir")
  For i = 2 To Sheets("İsim Listesi").Range("b65536").End(3).Row
   If Sheets("İsim Listesi").Cells(i, 2).Text = aranan Then

   a1 = Sheets("İsim Listesi").Cells(i, 1)
   a2 = Sheets("İsim Listesi").Cells(i, 2)
   a3 = Sheets("İsim Listesi").Cells(i, 3)
   a4 = Sheets("İsim Listesi").Cells(i, 4)
   
b1 = Sheets("İsim Listesi").Cells(1, 1)
b2 = Sheets("İsim Listesi").Cells(1, 2)
b3 = Sheets("İsim Listesi").Cells(1, 3)
b4 = Sheets("İsim Listesi").Cells(1, 4)

MsgBox b1 & "        : " & a1 & vbNewLine & b2 & " : " & a2 & vbNewLine _
& b3 & "        : " & a3 & vbNewLine & b4 & "  : " & a4 & vbNewLine
End If
Next
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 598
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: InputBox ile veri bulma

İleti#10)  nihatra » 09 Nis 2019 14:18

Süper. Allah razı olsun. elinize yüreğinize sağlık. kolay gelsin
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: InputBox ile veri bulma

İleti#11)  osmanyd » 09 Nis 2019 18:02

Arama sayfasında (Veri Girişi) InputBox ile aramaları alt alta kayıt yapar. İnşallah tam isteğin buydu.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 15:35
Konum: istanbul
Meslek: öğrenci
Yaş: 55
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: InputBox ile veri bulma

İleti#12)  nihatra » 11 Nis 2019 18:30

Teşekkür ederim. Allah razı olsun
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe