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

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.

Merhaba, mutlaka yedek aldıktan sonra şu makroyu deneyebilir misiniz; Sub EuroToDollar() Dim ws As Worksheet Dim cell As Range Dim i As Integer Dim şifre As String şifre = InputBox("Lütfen sayfa koruma şifresini girin:", "Şifre Girişi")...

Merhaba tekrardan, şu şekilde kodu güncelleyip yedek aldıktan sonra deneyebilir misiniz; Sub KelimeAramaVeToplama() Dim anaKlasor As String Dim yilKlasor As String Dim ayKlasor As String Dim dosya As String Dim arananKelime As String Dim bulunanDosyalar As Integer...

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

Merhaba, mevcut tüm dosyalarınızı yedek aldıktan sonra şunu deneyip sonucu paylaşabilir misiniz; Sub KelimeAramaVeToplama() Dim anaKlasor As String Dim yilKlasor As String Dim ayKlasor As String Dim dosya As String Dim arananKelime As String Dim bulunanDosyalar As...

Örnek olması açısından bende şöyle bir makro bırakıyorum, yedek alıp düzenleme yaptıktan sonra deneyebilirsiniz; Option Explicit Sub ExcelToMT940() Dim wsData As Worksheet Dim outputPath As String Dim fileNum As Integer Dim lastRow As Long, i As Long Dim hesapNo As String...

Merhaba hocam, bende geç cevap verdiğim için üzgünüm. Akrabanızın vefatından dolayı sizlere başsağlığı ve sabır diliyorum. 1) 10 defa yes butonuna tıklama konusu ile alakalı olarak kodunuzu şöyle revize edebilir misiniz; Sub YeniSayfaOluştur() Dim şablonSayfa As Worksheet Dim yeniSayfa...

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

Merhaba, şu şekilde deneyip sonucu paylaşabilir misiniz? Yedek almayı lütfen unutmayın; ' Sadece Değerleri Kopyalamak İçin: Sub SadeceDeğerleriGetir() Dim ws As Worksheet Dim hedefSayfa As Worksheet Dim sonSatir As Long, hedefSonSatir As Long Set hedefSayfa =...

Merhaba, OAuth 2.0 kimlik bilgilerini (Client ID ve Client Secret) aldıktan sonra şu makroyu deneyip sonucu paylaşabilir misiniz; Option Explicit Private Const GOOGLE_AUTH_URL As String = "https://accounts.google.com/o/oauth2/auth" Private Const GOOGLE_TOKEN_URL As String =...

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

...Dim kelime As String Dim hecelenmisKelime As String Dim c As Integer On Error Resume Next Set secim = Application.InputBox("Hecelerine ayırmak istediğiniz kelimelerin olduğu hücreleri seçin:", "Heceleme", Type:=8) On Error GoTo 0 If secim Is Nothing Then Exit...

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

...Dim kelime As String Dim hecelenmisKelime As String Dim c As Integer On Error Resume Next Set secim = Application.InputBox("Hecelerine ayırmak istediğiniz kelimelerin olduğu hücreleri seçin:", "Heceleme", Type:=8) On Error GoTo 0 If secim Is Nothing Then Exit...

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