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

koddaki Return Kelime satırı kırmızı oluyor. İşe yaramadı.

yanlış ayırıyor hocam Volkan ismini Vo lkan diye ayırdı

Bu kodu deneyin. Private Sub btnSatirSil_Click() Dim YilListesi As String Dim Yil As Variant Dim Yillar As Variant Dim Bak As Long With Application .EnableEvents = False .Calculation = xlCalculationManual .ScreenUpdating = False End With...

Bu da alternatif olsun.. Option Explicit Sub Clear_Contents_Range() Dim WS As Worksheet, My_Date As Variant Dim Last_Row As Long, My_Year As Variant Dim First_Time As Double My_Date = InputBox("Lütfen silmek istediğiniz yılı yazınız!" & Chr(10) & Chr(10) & _...

Necati bey çok teşekkür ederim

...Next If syf.Range("N12").Value > 1 Then syf.Range(Check_Rng.Address).EntireRow.Hidden = True SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 2, Type:=2) If Not SayfaAdedi = 0 Then Sheets("MUTABAKAT...

...If Next If Range("N12").Value > 1 Then syf.Range(Check_Rng.Address).EntireRow.Hidden = True SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 2, Type:=2) If Not SayfaAdedi = 0 Then Sheets("MUTABAKAT...

...= True syf.PrintPreview Else Range("b65:b77").EntireRow.Hidden = True SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 2, Type:=2) If Not SayfaAdedi = 0 Then Sheets("MUTABAKAT TUTANAĞI").PrintOut From:=1, To:=1...

...On Error Resume Next xTitleId = "Kaydedilecek Alanı Seçin!" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.address, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False defult =...

...String Dim defult As Integer On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.address, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False defult =...

...Variant Dim i As Long Dim j As Long Dim c As Integer Dim shO As Worksheet Dim sut As Range On Error Resume Next Set sut = Application.InputBox("Hangi Sütunda İşlem Yapılacaksa O sütunu ya da o sütunda bir hücre seçiniz", "Sütun Seçimi", Range("H1").Address, Type:=8) If sut Is Nothing...

Hocam emeğinize sağlık. Hocam özellikle resimlerle ilgili dosyalar benim ilgimi çekiyor da. Burada 21-22 yazan yere resmin kaydedileceği dosya yolu yazılacak değil mi. Bu sefer modüle :) Yani benim klasörüm için fso.CopyFile Dosya, ThisWorkbook.Path & "\C:\Users\muratgunay48\Desktop\test\" &...

Sub Kopyalama() Dim fso As Object Dim Dosya As String Dim YeniAd As String Set fso = VBA.CreateObject("Scripting.FileSystemObject") ' Dosya seçimi With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .Show = True Then...

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