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

Çook teşekkür ederim. Adem Bey

...için örnek. Siz de çözümünüzü paylaşırsanız forum kullanıcıları için faydalı olacaktır. Sub test() On Error GoTo hata satir = Application.InputBox("Silmek istediğiniz satır numarasını yazınız.", "") If satir = False Then Exit Sub If satir = "" Then GoTo hata If IsNumeric(CInt(satir)) Then...

...İstediğiniz kadar firma(sayfa) ekleyebilirsiniz. Sub test() Set s1 = Sheets("STOK KOD LISTESI") Set s2 = Sheets("BUL") sor = Application.InputBox("Lütfen aradığınız ürünün stok kodunu giriniz." & vbCrLf & "İlk Harf Yeterlidir.", "STOK KODU GİRİŞİ") If sor = False Then Exit Sub stok =...

Sub savePDForJPG() Dim Yol As String Application.ScreenUpdating = False Application.DisplayAlerts = False Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme") If dosya_adi = False...

Sub savePDF() Dim Yol As String Application.ScreenUpdating = False Application.DisplayAlerts = False Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme") If dosya_adi = False Then Exit Sub If dosya_adi = "" Then...

...sonS As Long, r As Long, c As Long On Error GoTo hata Set s1 = Sayfa1 sonS = s1.Cells(1, Columns.Count).End(1).Column numara = Application.InputBox("Başlangıç Numarasını Yazınız...", "") If numara = "" Or numara = False Then Exit Sub numara = numara * 1 For c = 3 To sonS Step 3 sonR...

...Dim xBule As Byte On Error Resume Next xTitleId = "Excel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each rng In WorkRng xRed = Application.WorksheetFunction.RandBetween(0, 255)...

...As Byte Dim xBule As Byte On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each rng In WorkRng xRed = Application.WorksheetFunction.RandBetween(0, 255) xGreen =...

Çok teşekkürler

Merhaba, Alternatif, Sayfaları otomatik olarak oluşturur. Sub Sayfa_Ekle() Ayy = Application.InputBox("Lütfen ilgili ayın ilk gününü giriniz." & vbCrLf & "Örneğin: 1.3.2024 gibi", "Ay GİRİŞİ") If IsDate(Ayy) = True Then Application.ScreenUpdating = False Sheets(1).Range("A1").Value = Ayy...

Çok teşekkür ederim. Emeğinize sağlık. Nasıl bir kolaylık sağladı anlatamam. Tarif ettiğiniz şekilde de düzenlemelerimi uyguladım , çok açık ve net anlatmışsınız bunun için de ayrıca teşekkür ederim. Çalışmalarınızda başarılar dilerim.

..."D").End(3).Row ss2 = Sheets("Metraj hata").Cells(Rows.Count, "E").End(3).Row R = Array(3, 33, 27, 46) x = 0 Uz = Application.InputBox("Lütfen çizginin kaç sütun uzunluğunda olacağını yazınız.", "ÇİZGİ UZUNLUĞUNU BELİRLEME") If Uz = False Then Exit Sub...

Çok teşekkür ederim bu şekilde kullanabilirim. Sadece bir opsiyon hakkında yardımcı olursanız memnun olurum. Renk tanımlamasını nasıl yapabiliriz. Bunu kendim ayarlayabilir miyim yani bir olanak var mı?

..."D").End(3).Row ss2 = Sheets("Metraj hata").Cells(Rows.Count, "E").End(3).Row Renk = 3 Uz = Application.InputBox("Lütfen çizginin kaç sütun uzunluğunda olacağını yazınız.", "ÇİZGİ UZUNLUĞUNU BELİRLEME") If Uz = False Then Exit Sub Range("F3:Z500").Borders.LineStyle =...

Hocam çok teşekkür ederim. Emeğinize sağlık. Va olun.

...Variant Dim arr As Variant arr = Array(Range("A1"), Range("A4"), Range("A10"), Range("A17"), Range("A24")) a = Application.InputBox("Hücre sayısı giriniz.", "Sayı", Type:=1) If a = False Then MsgBox "İşlemi iptal ettiniz" Exit Sub End If...

Sayın Ömer Bey Değerli cevabın için teşekkür ederim. basitlik ve kullanışlık açısından çok güzel. :)

Merhaba, Ben soruyu biraz farklı anladım. Sayın CengizYurek'in cevabına alternatif olsun. Private Sub CommandButton1_Click() Dim s As Byte s = Application.InputBox("Kaç tane?", "Yazdır", Type:=1) If s > 0 Then Sheets("OCAK_2011").PrintOut Copies:=s End Sub

...Source=C:\Users\428011\Desktop\Yeni klasör\DB.accdb;" conn.Open Dim sicilCount As Long sicilCount = Application.InputBox("Kaç tane sicil gireceksiniz?", Type:=1) ' Iterate through the dictionary and write to Excel and save to Access For Each key In dict.keys...

...Target As Range, Cancel As Boolean) Dim Searched_Data As Variant, Find_Data As Range Searched_Data = Application.InputBox("Aramak istediğiniz veriyi giriniz!", "Aranan Veri") If Searched_Data = "" Then MsgBox "Arama işlemine devam edebilmeniz için veri girişi...