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

...As Object Dim i As Long ' Kullanıcıdan kaynak hücreyi seçmesini iste On Error Resume Next Set kaynakHucre = Application.InputBox("Lütfen 'Https' veya 'Http' ile başlayan adresleri içeren TEK BİR hücreyi seçin:", "Kaynak Hücre Seçimi", Type:=8) On Error GoTo 0 If...

harika bir şekilde çalıştı yine de sağlama yapacağım bir sorun olursa dönüş yaparım ama tam olarak yapmaya çalıştığım buydu çok teşekkürler ilginiz için

Hocam emeğinize sağlık. İşe yaradı. Bende toplu sayfa koruma makrosu var. Onunla yine formül koruma yaptım. Tamamdır. Sağ olun. Var olun.

2018 klasörüne uyguladığımda tüm aylar için listele dediğimde kod sorunsuz çalışmıştı. Fakat diğer klasörlerde denediğimde tüm ayları listele dediğimde automation error hatası alıyorum. İlginç bir şekilde 2019-2020-2021-2022 klasörülerinde ay seçmeden arama yaptığımda sol altta inceleniyor...

Dostum bu çalışma için çok teşekkürler hatasız verileri çekmeyi başardım. Kodlarda oynama yapmama gerek bile kalmadı hatta. İnisiyatifin için tekrar teşekkürler. Bence oldukça verimli bir çalışma oldu yararlanacak arkadaşlar da vardır. Belki ufak bir ekleme yapmak gerekirse dosya adlarını...

pitchoute merhabalar, İlk olarak emeklerin için teşekkür ederim. Cevabınıza geç dönüş yaptıgım için beni mazur görün lütfen, bu aralar çok yakın akrabamı kaybettim aynı zamanda bilgisayarım da yazılımsal sorunlar vardı bu sürüçte dönüş yapamadım. 1- Şablon sayfa makrosunda ilk olarak sayfa adı...

Deneyiniz. Private Sub CommandButton3_Click() Dim sifre As String Dim anaSayfa As Worksheet Dim silinenSayfa As Worksheet Dim varMi As Boolean Dim sonSatir As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Set anaSayfa =...

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

...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 TUTANAĞI").PrintOut...

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