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

...kullanımım yanlış oldu sanırım, hata vermektedir. Sub Macro2() ' ' Macro2 Macro ' Dim rng1, rng2 As Range Set rng1 = Application.InputBox("Aralık Seçiniz", Type:=8) Set rng2 = Application.InputBox("Aralık Seçiniz", Type:=8) Application.Run "ATPVBAEN.XLAM!Regress"...

...Dim Adres As Variant Application.DisplayAlerts = False Application.EnableEvents = False Adres = Application.InputBox("Değiştirmek istediğiniz sütun harflerini giriniz...") If Adres = False Then Exit Sub If Adres = "" Then MsgBox "İşleme devam edebilmeniz için sütun...

Merhaba; Aşağıdaki kodlar ile özetle excel çalışma kitabindakı "Proforma" isimli sayfadaki fatura görüntüsünü belirlediğim bir dosyaya pdf uzantılı olarak kayıt edebiliyorum. Ben bu kodların çalışmasını bozmadan yine aynı makro ile bu kodlara ek olarak excel çalışma kitabında bulunan "Sayfa1"...

olmadı malesef acaba koddaki işleme devam etmeniz için hücre seçmeniz yazan yerlerimi doldurmam gerekli ?

...edebilmeniz için değer girmelisiniz!", vbCritical Exit Sub End If On Error Resume Next Set My_Area = Application.InputBox("Lütfen işlem yapmak istediğiniz alanı seçiniz..", , , , , , , 8) On Error GoTo 0 If My_Area Is Nothing Then MsgBox "İşleme devam...

...Dim arr As Variant Dim ar As Variant On Error Resume Next Application.ScreenUpdating = False Aranan = Application.InputBox("Aranacak Sözcüğü Giriniz", "Arama", Type:=2) If Aranan = False Or Aranan = "" Then Exit Sub Aranan = Evaluate("=UPPER(" & """" & Aranan &...

Necdet bey. Çok teşekkür ederim fakat sanırım ben durumu yanlış anlattım. Yapmak istediğim şey şu. 5 tane combobox var diyelim 4 combobox birbiri ile bağlantılı çalışıyor. Örneğin Combobox1'de Aydın seçildi Combobox2'de Aydın'ın ilçeleri listeleniyor. Combobox3 ve 4'te aynı mantıkla çalışıyor...

Çok teşekkür ederim. Seçenekli olması harika!

Deneyiniz. A sütunu için kurgulanmıştır. Option Explicit Sub Insert_Row() Dim Search_Data As Variant, Find_Data As Range Dim New_Data As Variant, Old_Address As String Search_Data = InputBox("Lütfen aradığınız veriyi giriniz...") If Search_Data = "" Or Search_Data =...

...C sütunundaki karşılığını kopyalayacak. Option Explicit Sub Test() Dim Aranan As Variant, Bul As Range Aranan = Application.InputBox("Aradığınız değeri giriniz..") If Aranan = False Or Aranan = "" Then Exit Sub Set Bul = Range("A:A").Find(Aranan, , , xlWhole)...

...End Sub 2. Yada bunu Sub Ilkharf_Buyuk() Dim rng As Range Dim FormatRuleInput As String On Error Resume Next Set rng = Application.InputBox( _ Title:="Number Format Rule From Cell", _ Prompt:="Select a cell to pull in your number format rule", _ Type:=8) On Error...

...j As Long, _ k As Integer, _ x As Long, _ hdfRng As Range On Error Resume Next Set rngRow = Application.InputBox("Satırda Listelenecek Sütun Başlığını Seçiniz", "Satırdaki Veri Başlığı", Range("E1").Address, Type:=8) On Error GoTo 0 If rngRow Is Nothing...

Sub aralikTabloCevir() Dim selectedRange As Range On Error Resume Next Set selectedRange = Application.InputBox(prompt:="Lütfen aralığı seçin:", Type:=8) On Error GoTo 0 If Not selectedRange Is Nothing Then Dim newTable As ListObject Set newTable =...

MkDir DosyaYolu & "/" & KlasörAdı hocam bu satırda hata verioyr

Sütunlardaki satır sayısını belirleyebileceğiniz alternatif kod; Sub SutunuAyir() Dim SatSay As Variant SatSay = Application.InputBox("Sütunlar Kaç Satır olsun? ", "Satır Sayısı Girişi") If SatSay = False Or SatSay = "" Then Exit Sub ss = Range("A" & Rows.Count).End(xlUp).Row...

...arr As Variant On Error Resume Next xTitleId = "Application will start soon" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set Dic = CreateObject("Scripting.Dictionary") arr = WorkRng.Value For i = 1 To UBound(arr, 1)...

Deneyiniz. Seçilecek klasörü sorar, Değiştirilecek hücreyi ve değeri de sorarak işlem yapar. Denedim problem yok. Bir chatgpt ürünüdür :) Sub ChangeCellValueInFolder() Dim folderPath As String Dim file As String Dim wb As Workbook Dim ws As Worksheet Dim targetCell As...

Deneyiniz. Option Explicit Sub Clear_Columns() Dim My_Password As Variant, My_Area As Range, Approval As Byte My_Password = InputBox("Lütfen şifrenizi giriniz...") If My_Password = False Or My_Password = "" Then Exit Sub If My_Password = "KHV413441" Then...

Merhaba linkteki dosya da A sütununda aynı olan hücreleri seçip yeni sayfaya taşımak istiyorum. Elimde aşağıdaki gibi girilen sayı miktarında satırı kesip yeni sayfaya ekleyen bir kod var. Inputbox ile tekrar sayısını alıyor bir for döngüsü ile dosya bitene kadar o aralığı seçip yeni sayfa...

...!", vbExclamation, "DİKKAT !..." Exit Sub End If kim = ListBox1.List(ListBox1.ListIndex, 0) myDate = Application.InputBox("Lütfen Ziyaret Tarihini Aşağıdaki Gibi Giriniz.", "Tarih Girişi", Format(Date, "dd.mm.yyyy")) If myDate = False Then Exit Sub If...