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

...ANASAYFA yedekleniyor ama sayfa koruması var, koruma şifresi 1995 Sub SayfaKopyala() Dim syf As Variant syf = Application.InputBox("Sayfa Adını Giriniz", "Sayfa Adı Girişi", "Yedek", Type:=2) If syf = False Then Exit Sub Sheets("ANASAYFA").Copy...

...Sub SutunEkle() Dim SutunBasla As Range Dim KacSutun As Long On Error Resume Next Set SutunBasla = Application.InputBox( _ Title:="SÜTUN BAŞLANGIÇ hücresi", _ Default:=ActiveCell.Address, _ Prompt:="Eklemek istediğiniz SÜTUN BAŞLANGIÇ hücresini...

...kod biraz daha esneklik sağlar.. (Geliştirilebilir..) Option Explicit Sub Insert_Column() Dim No As Variant No = Application.InputBox("Eklemek istediğiniz sütun sayısını giriniz!", "Sütun Sayısı", 365, Type:=1) If No = False Then MsgBox "İşleminiz iptal edilmiştir!"...

...As String Dim Secim As Range Dim Cad As Object ' Koordinat Seçimi On Error Resume Next Set Secim = Application.InputBox(Prompt:="İLK(X)Koordinatı Fare ile seçiniz. ÖRNEK: $A$2 veya A2" & vbCrLf & _ vbCrLf & "* Y koordinatı Belirlediniz (X)hücrenin yanındaki Sütun...

...boyadım sorun nedir acaba? Sub KoordinatCizimi() Dim koordinat Dim xkoordinat Dim ykoordinat Dim Secim As Range Set Secim = Application.InputBox(Prompt:="İLK(X)Koordinatı Fare ile seçiniz. ÖRNEK: $A$2 veya A2" & vbCrLf & _ vbCrLf & "* Y koordinatı Belirlediniz (X)hücrenin yanındaki Sütun...

...aralığı seçmesini isteyin On Error Resume Next ' Kullanıcı seçim yapmadıysa hata almamak için Set selectedRange = Application.InputBox("Lütfen Mail Göndermek istediğiniz hücre aralığını seçin:", Type:=8) On Error GoTo 0 ' Hata işleme kapatıldı ' Eğer seçim yapılmazsa...

...ws1.Select ' Kullanıcıdan silmek istediği satırları seçmesini iste On Error Resume Next Set seciliAralik = Application.InputBox("Silmek istediğiniz satırları " & ws1.Name & "'de seçin:", Type:=8) On Error GoTo 0 ' Kullanıcı seçim yapmazsa çık If seciliAralik...

...i As Long Dim h As String ' Kullanıcıdan veri aralığını seçmesini iste On Error Resume Next Set dataRange = Application.InputBox("Veri aralığınızı seçiniz. İsterseniz mouse ile seçim yapabilirsiniz ya da elle (örn: C2:F25) yazabilirsiniz. ", "Aralık Seçimi", Type:=8)...

Aşağıdaki kod ile arama yapmak istiyorum. Inputboxa veri girdiğimde sıkıntı yok. Ama Inputboxa veri girmeden CANCEL veya X ile çıkmak istediğimde ekrana boş formu getiriyor. Bunun gelmemesini nasıl sağlarız. Sub Arama() On Error GoTo bitir Dim aranan, sil_satir As Variant aranan...

Selam Alternatif olsun. Kodları bir modül içine yazıp deneyiniz. Sub ikiTarihArasiGunSayisi() Dim bastar As Date: Dim bittar As Date: Dim GunSayisi As Integer bastar = InputBox("Başlangıç Tarihi Giriniz :", "Başlangıç Tarihi") bittar = InputBox("Bitiş Tarihi Giriniz :", "Bitiş...

kod bu şekilde arkadaşlar buldum. Sub PrintSelectedSheets() Dim s As String Dim sheetsToPrint As Variant Dim ws As Worksheet ' Kullanıcıdan yazdırılacak sayfa isimlerini al s = InputBox("Yazdırmak istediğiniz sayfa isimlerini virgülle ayırarak yazınız", "SAYFA YAZDIRMA")...

Merhaba, Deneyip sonucu paylaşır mısınız? İstediğiniz işlevselliği Excel VBA kullanarak gerçekleştirebilirsiniz. Aşağıda adım adım çözüm önerisini bulabilirsiniz: 1. Kullanıcı Şifresi ile Kitap Açma Öncelikle, kullanıcının şifreyi girmesi gerektiği ve doğru şifre ile belirli sayfalara...

Ben farklı anladım soruyu. Aşağıdaki kodu boş bir modül içine kopyalayın Say = Application.InputBox("Kopya adedi giriniz", Type:=1) If Not IsNumeric(Say) Then Exit Sub If Say < 1 Then Exit Sub For i = 1 To Say ActiveSheet.PageSetup.CenterFooter = i...

Sayın muhasebeciyiz Arkadaşım zaman ayırdığınız için çok teşekkür ederim. Evet çizim yapıyor. Fakat benim dediğim desen tam olarak bu değil. sayfaya resim linkini eklemeye çalışayım. https://resimlink.com/EjhsQe1B4t

Sayın muhasebeciyiz arkadaşım cevabınız için çok teşekkür ederim. Bakacağım çizime

...Dim diameter As Double Dim armWidth As Double Dim centerX As Double Dim centerY As Double diameter = Application.InputBox("Desenin çapını girin:", Type:=1) armWidth = Application.InputBox("Kol genişliğini girin:", Type:=1) centerX = ws.Cells(1, 1).Width +...

Bu çalışma ihtiyacımı tam olarak karşıladı. Diğer 8 ve 9. mesajdaki kodlar la da yapılabiliyor fakat ADO tecrübemin olmamasından dolayı ve bu kodda sayfalara ayır, dosyalara ayır ve yazdır seçenekleri olduğu için bana daha iyi geldi. Yardımız çok kıymetliydi. İlginizden dolayı çok teşekkür ediyorum.

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

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

...Set aSh = Sheets("DATA") arr = aSh.Range("A1").CurrentRegion.Value On Error Resume Next Set sec = Application.InputBox("Sayfalara Ayıracağınız Sütundan Bir Hücre Seçiniz", "SÜTUN BELİRLEME", Range("F1").Address, Type:=8) On Error GoTo 0 If sec Is Nothing Then...