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

Hocam öncelikle emeğinize sağlık. Hocam yine olmadı ama acaba benden mi kaynaklanıyor. Size eksik bilgi verdim sanırım. Ben Excel kullanmıyorum. Kullanmıyorum derken, açmıyorum. VBScript komut dosyası ile makroları çalıştırıyorum. Klasör ve içinde VBScript komut dosyaları var. Ve çok fazla. Tüm...

...+ vbSystemModal) End Function Public Function AskInput(Soru As String) As Variant FocusExcel AskInput = Application.InputBox(Soru, "Bilgi", Type:=2) End Function Sub mesaj() Dim iResponse As VbMsgBoxResult iResponse = AskMsg("Haberi var mıydı?") If iResponse = vbYes Then...

Teşekkür ederim hocam, anladığım kadarıyla modüle Public Sub FocusExcel() On Error Resume Next Application.WindowState = xlNormal Application.Activate AppActivate Application.Caption DoEvents End Sub Ve MsgBox üstüne FocusExcel

Yeni bir Module açın ve bunu ekleyin: Public Sub FocusExcel() On Error Resume Next AppActivate Application.Caption DoEvents End Sub Artık tek satır eklemeniz yeterli Her MsgBox veya InputBox'tan önce sadece bunu yazın: FocusExcel örnek Sub Test() FocusExcel MsgBox "Devam...

Bu Excel VBA’da çok sık görülen bir durumdur. MsgBox veya InputBox, Explorer penceresinin arkasında kalır çünkü Excel aktif pencere değildir. Windows o anda Explorer’ı foreground window olarak görüyor. MsgBox veya InputBox’tan önce Excel’i aktif yapın. AppActivate Application.Caption Sub...

Sayın @Biolightant , incelemeden mesaj yazayım dedim. Elinize emeğinize sağlık.

Merhaba 1. https://github.com/VBA-tools/VBA-JSON linkini tarayıcınızda açın 2. açılan sayfada "JsonConverter.bas" dosyasını bilgisayarınıza ekleyiniz 3. Boş bir excel dosyası açınız 4. Excel VBE açınız (Alt+F11) 5. "JsonConverter.bas" dosyasını ekleyiniz (import file...)...

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

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

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.