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

A:A Sütununda tarih verileri var. Tarih formatını hangi satırda tanımlasam sorun olmaz. Tarih Formatı kodu : Columns("A:A").Select Selection.Replace What:="-", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...

Korhan hocam, Satır sayısını 120 den 400'e dönüştürdüm. Sorun yok. Son sütunu K olarak değerlemişsiniz, Veri = Range("A1:K" & Son).Value şöyle değiştirdim, Veri = Range("A1:S" & Son).Value yeterli olmadı. Yine son sütunu K sütunu olarak görüyor. Nasıl değiştirebilirim. Teşekkür ederim.

volki 12 sorunsuz çalışıyor çok teşekkür ederim,süper bir kod ayrıca hücreyi kendim belirlemem ayrıca güzel olmuş,elinize sağlık.iyi çalışmalar.

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