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

...A sütununa listeler. Sub SifreUret() Dim sifreler As Collection Dim i As Long Dim adt As Long adt = Application.InputBox("Kaç Adet Şifre İstiyorsunuz?", "Kaç Adet", 8000, Type:=2) If adt < 1 Then MsgBox adt & " Adet Sayı İstiyorsunuz, ÇIKIYORUM...."...

...As Worksheet Dim nextRow As Long Dim tStart As Double ' Kullanıcıdan girdiler (isteğe bağlı) searchText = Application.InputBox("Aranacak metin parçası:", "Arama", DEFAULT_SEARCH_TEXT, Type:=2) If searchText = "False" Or Len(searchText) = 0 Then Exit Sub...

İyi Pazarlar, Yazdır makrosu ile istenilen sayfayı yazdırıyorum. Ancak, yazılan belgenin hangşii yazcıdan çıktığını msgbox ta göstermek istiyorum. msgbox'uın bulunduğu satıra nasıl bir kod eklemek gereklidir. Sub Yazıcı() Dim a As Variant Dim Yazıcı As String If MsgBox("YAZDIRMA İŞLEM...

Sub Kurban_Satıs_Temizle_Tam_Sutunlar() Dim ws As Worksheet Dim kullaniciSifre As String Dim i As Long Dim sonSatir As Long Dim hucre As Range Dim adresler As Variant Dim j As Long Set ws = ThisWorkbook.Sheets("Kurban Satıs Formu") ' Kullanıcı...

...mantıklı mı? Sub Ornek() Dim arr As Variant Dim i As Long Dim j As Long Dim k As Integer Dim Ay As Variant Ay = Application.InputBox("Ay Kodunu Giriniz", "Listelenecek Ay", Month(Date), Type:=1) If Ay = False Then Exit Sub arr = Sayfa1.Range("A1").CurrentRegion...

...Range Dim wdApp As Object Dim wdDoc As Object Dim userChoice As Variant On Error Resume Next Set rng = Application.InputBox("Word'e aktarmak istediğiniz aralığı seçin:", "Aralık Seç", Type:=8) On Error GoTo 0 If rng Is Nothing Then MsgBox "Hiçbir...

Her PDF dosyasına o sayfanın 2. satırındaki ismi vermek istiyorsanız, her sayfayı geçici bir belgeye kopyalayıp o sayfanın içeriğinden ismi almanız gerekir. Sub SavePagesAsPDFWithNames() Dim I As Long Dim xPathStr As String Dim xFileDlg As FileDialog Dim xStartPage As Long...

merhaba, yardımcı olursanız cok sevinirim. adres mektup birleştirmeden ürettiğim 110 sayfalık word belgesini pdf olarak tek tek kaydetmek istiyorum. ancak her sayfanın 2. satırı isimler var. bu isimleride dosya ismi olarak vermek istiyorum. ... isimleri alamadan işlemi şu şekilde yapabiliyorum...

Necati bey merhaba, benzer bir sorunumda benim var. yardımcı olursanız cok sevinirim. adres mektup birleştirmeden ürettiğim 110 sayfalık word belgesini pdf olarak tek tek kaydetmek istiyorum. ancak her sayfanın 2. satırı isimler var. bu isimleride dosya ismi olarak vermek istiyorum. ...

Merhaba, ilk olarak Yeni konu açman daha iyi olurdu. Sorunuza cevap olarak basit bir senaryo ile, Sayfa adını sağ tık > Kod görüntüle tıklanıp açılan sayfaya yazılacak Private Sub Worksheet_Change(ByVal Target As Range) Dim sifre As String Dim i As Long Dim kullanicilar() As...

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