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

Merhaba, Aşağıdaki kodları LISTE isimli UserForm'un kod bölümüne yapıştırarak dener misiniz?

merhabalar öncelikle teşekkürler çok faydalı olmuş. Bu kodu bir sütunda bulunan değerlere göre otomatik kaydetme işlemine nasıl çevirebilirz? A sütununda 100 tane veri var. Bunların sıralarını değiştirerek 50 tane txt dosyasına kaydetmek istiyorum. Kaydedilecek klasörü ve dosya isimlerini 1-50...

...yatay, çift numaralı sayfayı dikey yazdırır. Sub Yazdirma_Secenekleri() Dim say As Integer, i As Integer say = Application.InputBox("Kaç Sayfa Yazdırayım", Type:=2) For i = 1 To say If i Mod (2) = 0 Then ActiveSheet.PageSetup.Orientation = xlPortrait...

Sayfa sonlarını dosyanızda ayarlayınız. Kod: 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...

teşekkür ederim yardımlarınız için :) sizi yordum ama çok başarılı bir çalışma olmuş tekrardan teşekkür ederim

...Then sifre = sfr(i) Exit For End If Next i If sifre = "" Then Exit Sub sor = Application.InputBox("Şifre Girmeniz Gerekir", "!!!") If sor <> sifre Then MsgBox "Hatalı Şifre. Geri Döndüm.", vbInformation c = d...

Öncelikle teşekkürler benmi yanlış bişey yaptım bilmiyorum ama dünün tarihini yazıp kapatıp açtığımda benden tarih sormadı.

Dener misiniz? Sub Test() Tarih = CDate("01.02.2023") If Tarih < Date Then Sifre = Application.InputBox("Lütfen Şifrenizi Giriniz.", "DİKKAT !!!") If Sifre = "" Or Sifre = False Or Sifre <> "x" Then Exit Sub 'Application.Quit 'Şifre doğruysa yapılacak işlemler..... Else...

Teşekkür ederim PDF için nasıl ayarlamam gerekiyor Option Explicit Sub Seri_Yazdir_PDF() Dim WF As WorksheetFunction, S1 As Worksheet, S2 As Worksheet Dim Baslangic_No As Variant, Bitis_No As Variant, X As Long Set S1 = Sheets("TESLİM TESELLÜM") Set S2 = Sheets("LİSTE")...

...sevinirim Sub hücresec() 'Gitmek istenilen hücreyi seçer Dim Rng As Range On Error Resume Next Set Rng = Application.InputBox(prompt:="Gitmek istediğiniz Hücreyi Yazınız", Type:=8) If Rng Is Nothing Then MsgBox "Seçimden vazgeçtiniz" Else Rng.Select...

Merhabalar, bana lazım olan bir makroyu çalıştıramıyorum object doesn't support this property or method hatası veriyor Sub derscek() With Application.File(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13""*xlsx;*.xlsm;.xlsa" .AllowMultiSelect = False .Show If...

Muzaffer Bey denedim, Fakat If Aranan = " " Then eşitliğinde hata veriyor

...b As Byte, C As Byte, D As Byte Dim Aranan As String Dim Sonuc As Double Dim Fark As Double Sorgula: Aranan = Application.InputBox("Lütfen Hesaplanacak Modülü 0,5-7,0 aralığında giriniz!", "MODÜL SORGULAMA EKRANI") If Aranan = "" Then MsgBox "İptal edildi."...

...B As Byte, C As Byte, D As Byte Dim Aranan As Double Dim Sonuc As Double Dim Fark As Double Sorgula: Aranan = Application.InputBox("Lütfen Hesaplanacak Modülü 0,5-7,0 aralığında giriniz!", "MODÜL SORGULAMA EKRANI") If Aranan = False Then Exit Sub If Aranan < 0.4999 Or...

...'updateby Extendoffice Dim xCount As Variant Dim I As Long On Error Resume Next LInput: xCount = Application.InputBox("Yazdırılacak Koli Üstü Sayısını Giriniz:", "Koli Üstü Yazdırma") If TypeName(xCount) = "Boolean" Then Exit Sub If (xCount = "") Or (Not...

...Dim xCount As Variant Dim xScreen As Boolean Dim I As Long On Error Resume Next LInput: xCount = Application.InputBox("Yazdırılacak Koli Üstü Sayısını Giriniz:", "Koli Üstü Yazdırma") If TypeName(xCount) = "Boolean" Then Exit Sub If (xCount = "") Or (Not...

çok güzel çalışıyor yalnız ben bunu kitapta tüm sayfalara otomatik olarak yapmak istiyorum örneğin 70 sayfa kitabım var bunlardan bazılarını hariç tutarak tek şeçimle tüm kopyalama işlemini tek seferde yapmak istiyorum aşağıda belirtiğim kodda kalın yazıda belirtilen yerleri her seferinde...

...Dim Copy_Area As Range, Paste_Area As Range, My_Sheet As Worksheet On Error Resume Next Set Copy_Area = Application.InputBox(Title:="Lütfen kopyalamak istediğiniz alanı seçiniz..", Prompt:="Hücre Seçimi", Type:=8) On Error GoTo 0 If Copy_Area Is Nothing Then Exit Sub...

...Dim klm As Variant Dim i As Integer Set klm = Range("M2:M" & Range("M1").End(xlDown).Row) Set rng = Application.InputBox("Renklendirilecek Hücreleri Seçiniz", "Hücre Seçimi", "A1", Type:=8) With rng.Font .Bold = False .Color = vbBlack End...

Hocam muhteşem kod. Ellerine sağlık cidden talebime birebir uyan harika bir çalışma. Tekrar teşekkür ederim. Saygılarımla.