Sorgu için arama sonuçları: application.Inputbox

Dosyanıza bakamıyorum. Anlatıma dayalı olarak bu makro olabilir diye düşündüm. Sub KOD() Dim Alan As Range Dim a Dim s, i, b, c, d a = InputBox("metin giriniz", "metin") s = ActiveSheet.Name Application.ScreenUpdating = False For i = 1 To Sheets.Count...

Onu başka excele aktarmak yerine bu şekilde çözmeye çalıştım. Kodum aşağıdaki şekilde. Z'yi iptal edecektim aslında ama yanlış yerlerimi sildim bilmiyorum hata verince ellemedim artık. Sizin dediğiniz kodu "Bu çalışma kitabı" içerisinemi yapıştıracağım. Yoksa moduledeki makro içerisine mi? Her...

Hocam, çok teşekkür ederim. Dosya açıldığı zaman çalışan, Sayfa1 A1 hücresine yazan şekle uyarladım. Emeğinize sağlık. Var olun.

...örnek kod hazırladım. Kendinize göre düzenlersiniz. Option Explicit Sub Test() Dim My_Text As Variant My_Text = Application.InputBox("Lütfen metinsel veri giriniz.", Type:=2) If My_Text = False Then MsgBox "İptal tuşuna bastınız...", vbInformation Exit...

Çok teşekkür ederim hocam.

Merhaba Necdet Hocam Bayramın mübarek olsun; 9 nolu mesajındaki İbandan hesap almayı benim aşağıdaki kırmızı ile yazmış oldum yere nasıl uyarlarsam yazar bakabilir misin Teşekkürler.

İnceleyiniz. Inputbox

Çok teşekkür ederim. Hemen deniyorum hocam. Yalnız, başına. (Benim yazdığım kod öyleydi. InputBox açılıyor, (Excel gizli) Yanıtla beraber Userform açılıyor.) Private Sub Workbook_Open() Application visible Şeklinde yazsam sıkıntı olmaz değil mi.

...yazdım ama olmadı. Private Sub Workbook_Open() basla: dogum = InputBox("Doğum tarihinizi giriniz.", "Merhaba") StartDate = Application.InputBox(MsgGP, TitleMsg, FormatDateTime(Date, vbShortDate), Type:=1) Sheets("Sayfa1").Select Range("A1").Value = Format(StartDate, "dd/mm/yyyy") Else...

Hemen deniyorum hocam.

StartDate = Application.InputBox(MsgGP, TitleMsg, FormatDateTime(Date, vbShortDate), Type:=1) Range("A1").Value = Format(StartDate, "dd/mm/yyyy") İşinizi görüyor mu bir kontrol eder misiniz.

...Surum = ActiveWorkbook.FileFormat Set ws = Sheets(ActiveSheet.Name) On Error Resume Next Basla: ' DosyaSayfa = Application.InputBox("1. SAYFALARA AYIRMA, 2. DOSYALARA AYIRMA, 3. YAZDIR", "YÖNTEM SEÇİMİ.....", 1, Type:=1) ' If DosyaSayfa = 0 Then Exit Sub ' If DosyaSayfa...

...Surum = ActiveWorkbook.FileFormat Set ws = Sheets(ActiveSheet.Name) On Error Resume Next Basla: DosyaSayfa = Application.InputBox("1. SAYFALARA AYIRMA, 2. DOSYALARA AYIRMA, 3. YAZDIR", "YÖNTEM SEÇİMİ.....", 1, Type:=1) If DosyaSayfa = 0 Then Exit Sub If DosyaSayfa > 3...

Bir de şöyle dener misiniz. İki adet kodu da kopyalayın. Yıl aralığı makro içinde düzenlenecek. Saat aralığı "inputbox" dan girilecek. Haftasonu kontrolü fonksiyon olarak eklendi. Public Sub KategoriHaftasonu() 'Klasördeki mailleri haftasonu kategorili olarak işaretler 'Böylece istenilen...

...Set dt = CreateObject("Scripting.Dictionary") xTitleId = "GreenBlacksea53" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Yapıştıracağın sutünü seç:", xTitleId, Type:=8) For Each hucre...

...Set dt = CreateObject("Scripting.Dictionary") xTitleId = "GreenBlacksea53" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Yapıştıracağın sutünü seç:", xTitleId, Type:=8) For Each hucre...

Adem Bey, Ufak satır değişiklikleri ile vermiş olduğunuz makro ile işimi hallettim. Teşekkür ederim ilginiz için :)

Merhaba, tablonuz resimdeki gibi olursa, paylaştığım kodları kullanabilirsiniz. Option Base 1 Sub test() no = Application.InputBox("Parça Numarasını Yazınız", "Parça Numarası Arama Ekranı") If no = False Then Exit Sub Set sh = Sayfa1 s = sh.Cells(Rows.Count, 1).End(3).Row a =...

Deneyin... Sub test() Dim c As Range, bulunanlar As Range Dim ilkbulunan As String Dim aranan As String aranan = Application.InputBox("Silinecek veri nedir ?", "Arama Kutusu", "Aranacak kriter girin") Application.ScreenUpdating = False With Sheets("Sayfa1") Set c =...