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

Merhaba. Sub Kaydet_Kapat() Dim Parola As String Parola = InputBox("Parola giriniz.") If Parola = InputBox("Parola tekrar giriniz.") Then Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName, Password:=Parola...

Bu kodu örnekte de olduğu gibi A sütununda bulunan bir ismi E ile J aralığında herhangi bir yerde varsa büyük küçük harfe duyarlı olmayacak şekilde ve yapabilirse trim yaparak(Hatalı boşluk koyulmuşsa birebir eşleşmeyebilir) toplu aratabilir miyiz ?

elinize sağlık. Ben bunu ilgili dosya için çalıştırmak istedim ama "sayfa geçerli değil" uyarısı verdi. Tam olarak nasıl kuulanacağımı anlamadı. Şekil ekleyip makroyu oraya atadım ama olmadı.

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

Private Sub CBFILTREAKTAR_Click() On Error Resume Next Dim File_Name As String, My_Folder As Variant, X As Long Dim My_Sheet As Worksheet, My_Check As Boolean, My_Count As Byte Dim My_Box As Object, My_Area As Range, Last_Row As Long 10 If My_Count = 3 Then MsgBox "Çok...

Deneyiniz. Kod içinde işlem yapılacak klasörü belirten My_Path = "C:\Users\Desktop\Deneme\" satırını kendinize göre revize etmeyi unutmayınız. Option Explicit Sub Search_All_Files_in_Folder_Find_Replace() Dim My_Path As String, My_File As String Dim Find_Data As Variant, New_Data As...

...As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible) xIndex = 1 For Each Rng...

Deneyiniz. Private Sub CommandButton1_Click() Dim File_Name As String, My_Folder As Variant, X As Long Dim My_Sheet As Worksheet, My_Check As Boolean, My_Count As Byte Dim My_Box As Object, My_Area As Range, Last_Row As Long 10 If My_Count = 3 Then MsgBox "Çok Fazla...

...Siz bu "F1" hücresini değiştirin. Mesela ben B20 olarak belirledim. Sub OzelYaz() Dim s As Integer, i As Integer s = Application.InputBox("Kaç Sayfa Yazdırayım", Type:=2) Application.EnableEvents = False For i = 1 To s 'ActiveSheet.PageSetup.CenterFooter = i...

World de çalıştıramadım. Sanırım Yer imi kısmında falan hata yapıyorum.

Excel işe yaradı. Dediğiniz gibi Sayfanın alt orta kısmına yazıyor. Peki istediğimiz yerde (belirlediğimiz yerde) yazması mümkün mü.

Excel için alternatif, Sayfa alt orta kısmına numaraları yazar. Sub OzelYaz() Dim s As Integer, i As Integer s = Application.InputBox("Kaç Sayfa Yazdırayım", Type:=2) Application.EnableEvents = False For i = 1 To s ActiveSheet.PageSetup.CenterFooter = i...

...butonunuza bu makroyu atayabilirsiniz. Sub OranaGöreSüz() Dim Oran As Double, Alan As Range, Kriter As String Oran = Application.InputBox("Oran giriniz", Type:=1) / 100 Worksheets("Kontrol").Cells.Clear Set Alan = Worksheets("C100").Range("A1").CurrentRegion Kriter =...

Gizli sayfayı görünür yapıp, işlem sonunda tekrar gizleyerek yapılabilir. Private Sub CommandButtonARA_Click() Application.ScreenUpdating = False Worksheets("Veri").Visible = True On Error GoTo bitir aranan = InputBox("ID Numarasını Giriniz", "ARA") Worksheets("Veri").Select...

...sizin seçiminize bıraktım. Sub SayfalardakiAynıHücrelerdenVeriÇek() Dim Kaynak As Range, Hedef As Range Set Kaynak = Application.InputBox("Kaynak hücre adresi", Type:=8) Set Hedef = Application.InputBox("Hedef hücre adresi", Type:=8) For i = 1 To Sheets.Count If...

İlginç.. Neyse aşağıdaki kodu deneyiniz. Kodun içinde aşağıdaki koyu satır ile sayfa tanımlaması yapabilirsiniz. Set My_Sheet = Sheets("Sheet1") Option Explicit Sub My_Sheet_SaveAs() Dim File_Name As String, My_Folder As Variant Dim My_Sheet As Worksheet, My_Check As Boolean...

...Set ikinci = Application.ActiveWorkbook ' SendKeys "{ENTER}", True ilk.Activate Set Hucre2 = Application.InputBox(prompt:="Kopyalamak İstediğiniz Hücreleri Seçin", Title:=Baslik, Default:="L2: L1000 (son dolu hücreye kadar olacak)", Type:=8) ikinci.Activate...

Merhabalar Bulent bey Korhan beyın baska bir paylaşımında denk geldim birde bu makroyu denermisiniz? Option Explicit Sub ActiveSheet_SavaAs() Dim File_Name As String, My_Folder As Variant File_Name = InputBox("Dosya adını giriniz...", "DOSYA ADI") If File_Name = "" Then...

Merhaba, Aşağıdaki kodu kendi dosyanıza uyarlarsınız. Ben aktif olan sayfayı excel dosyası kaydedecek şekilde ayarladım. Siz gerekiyorsa sayfa adı belirterek düzenleme yapabilirsiniz. Option Explicit Sub ActiveSheet_SavaAs() Dim File_Name As String, My_Folder As Variant...

Merhaba, Excel'in ilk sayfasını masaüstünde oluşturmuş olduğum klasörün içerisinde istemiş olduğum isimle kaydetmek istiyorum. Aşağıda bulunan kod ile istediğim pdf yerine boş klasör kaydediyor. ( Seçmiş olduğum dosyaya klasör olarak kaydediyor. ) Pdf olarak kaydolması için sheet1'in, nasıl bir...