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

...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...

...FİLİTREYİ UYGULASIN 4- SAYFAYI TEKRARDAN KORUSUN - ŞİFRE 12345 Sub Sayfa() Dim sifre As Variant sifre = Application.InputBox("Şifre Giriniz", "Şifre Giriş") If sifre = False Then Exit Sub 'SUAT M. If sifre = 1818 Then MsgBox "Şifre doğru.", , ""...

...ReDim Preserve dizi(k) dizi(k) = b.Value k = k + 1 Next b On Error Resume Next Set alan = Application.InputBox("Alan Secin", "Yapıştırma Yapılacak Alan", Type:=8) If alan Is Nothing Then MsgBox "Alan Seçmelisiniz" Exit Sub End If...

Merhaba; Sitemizdeki daha önceki yazışmaları örnek alarak kendime aşağıdaki kodları yazdım. Bu kodlarda Belli Hücre Aralığını Şifre İle Koruma süreci çalışıyor. Sorun yaşamıyorum. Ancak şifre korumalı hücrelerı yada bulundugu satırları silmek istediğimde de herdefasında şifre sorgusu ekrana...

merhaba sizin bu kodu kullandım çalıştı ancak benim şöyle bir sorunum var. 4 tane makro ile çalışan buton var onlar çalışmadı korumada şifre olduğu için. ben bu makroları sizin koddan önce manuel koruma kaldırıp tekrar koruma yaparak oluşturdum. benim makroları nasıl düzeltirim. mesela bir tane...

İngilizce ise Sayfa yerine Sheet yazın. Sub xx() xRet = Application.InputBox("Go to this sheet") Sheets("Sayfa" & xRet).Activate End Sub

Merhabalar , Dim xRet As Variant Dim xSht As Worksheet xRet = Application.InputBox("Go to this sheet") Set xSht = Sheets(xRet) xSht.Activate Bu kodu kullanarak çalısma sayfamın basında sheet1 , sheet2,sheet3 yazınca geçiş yapabiliyorum fakat ben sadece çalışma...

çok çok teşekkürler