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

MkDir DosyaYolu & "/" & KlasörAdı hocam bu satırda hata verioyr

Sütunlardaki satır sayısını belirleyebileceğiniz alternatif kod; Sub SutunuAyir() Dim SatSay As Variant SatSay = Application.InputBox("Sütunlar Kaç Satır olsun? ", "Satır Sayısı Girişi") If SatSay = False Or SatSay = "" Then Exit Sub ss = Range("A" & Rows.Count).End(xlUp).Row...

...arr As Variant On Error Resume Next xTitleId = "Application will start soon" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set Dic = CreateObject("Scripting.Dictionary") arr = WorkRng.Value For i = 1 To UBound(arr, 1)...

Deneyiniz. Seçilecek klasörü sorar, Değiştirilecek hücreyi ve değeri de sorarak işlem yapar. Denedim problem yok. Bir chatgpt ürünüdür :) Sub ChangeCellValueInFolder() Dim folderPath As String Dim file As String Dim wb As Workbook Dim ws As Worksheet Dim targetCell As...

Deneyiniz. Option Explicit Sub Clear_Columns() Dim My_Password As Variant, My_Area As Range, Approval As Byte My_Password = InputBox("Lütfen şifrenizi giriniz...") If My_Password = False Or My_Password = "" Then Exit Sub If My_Password = "KHV413441" Then...

Merhaba linkteki dosya da A sütununda aynı olan hücreleri seçip yeni sayfaya taşımak istiyorum. Elimde aşağıdaki gibi girilen sayı miktarında satırı kesip yeni sayfaya ekleyen bir kod var. Inputbox ile tekrar sayısını alıyor bir for döngüsü ile dosya bitene kadar o aralığı seçip yeni sayfa...

...!", vbExclamation, "DİKKAT !..." Exit Sub End If kim = ListBox1.List(ListBox1.ListIndex, 0) myDate = Application.InputBox("Lütfen Ziyaret Tarihini Aşağıdaki Gibi Giriniz.", "Tarih Girişi", Format(Date, "dd.mm.yyyy")) If myDate = False Then Exit Sub If...

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