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

Merhaba, Aşağıdaki kodu boş bir modüle ekledikten sonra buton yardımı ile kullanabilirsiniz. İhtiyaçlarınızı doğru anladıysam işinize yarayacaktır. Vardiya Listesi sayfasında Personel adına tıkladıktan sonra makroyu çalıştırırsanız listeyi o personelin bilgilerine göre güncelleyecektir. Sub...

Sayın Ali cimri çok uğraştırdım. Hakkınızı helal ediniz. Harika oldu elinize emeğinize sağlık.:))) iyi geceler dilerim. Sonucu buraya da yazayım belki merak eden olur. Sub Makro1() Application.ScreenUpdating = False NSayısı = InputBox("Sütun Sayısı Girin", "NÖBET SAYISI", Default) Set s1 =...

Bu kodu bir düğmeye bağlayın, sütun sayısını Inputbıx dan alıyor. Sub Makro1() Application.ScreenUpdating = False NSayısı = InputBox("Sütun Sayısı Girin", "NÖBET SAYISI", Default) Set s1 = Sheets("Sayfa1") Set s2 = Sheets("Sayfa2") s2.Cells.Delete say = s1.Cells(Rows.Count, 1).End(3).Row bol =...

...kodları deneyiniz. Public Sub SecimDagit() Dim sec As Range Dim hcr As Range Dim arr As Variant Dim i As Long Set sec = Application.InputBox("Sayfa2 den aktarılacak Hücreleri Seçiniz..", Type:=8) ReDim arr(1 To sec.Count, 1 To 2) For Each hcr In sec i = i + 1 arr(i, 1) =...

makroyla ağdaki kapalı dosyalardan veri alıyorum. Fakat bu dosyaya ek yapmak istiyorum forumda TextBox lara yazdırılanları buldum ama kullandığım makroya ekleyemedim. Form açıldığında kapalı dosyayı seçip birim sayfasına ekliyorum. Açığım dosyanın yolunun sayfa1 de a1 hücresine dosya yolunu a2...

...As String, buyuk_kucuk As String On Error Resume Next Set s1 = Sayfa1 son = s1.Range("Q" & Rows.Count).End(3).Row sutun = UCase(Application.InputBox("Sütun Harfini Yazınız!", "Filtre için Sütun Belirleme")) kriter = Application.InputBox("-10 ya da +10 şeklinde kriter belirtin!", "Filtre için...

..."Listeden Yazdırılacak Sayfayı Seçiniz?", vbInformation, "DİKKAT": Exit Sub Dim SayfaAdedi As Integer SayfaAdedi = Application.InputBox("LÜTFEN KOPYA SAYISINI GİRİNİZ ?", "KOPYA SAYISI GİRİŞİ !!!!", 1, Type:=2) If Not SayfaAdedi = 0 Then Sheets(ListBox1.Text).PrintOut From:=1, To:=1...

....SelectedItems(1) Set ikinci = Application.ActiveWorkbook Set Hucre1 = Range("A3:j60") 'Application.InputBox(prompt:="Kopyalamak İstediğiniz Hücreleri Seçin", Title:=Baslik, Default:="A1", Type:=8) ilk.Activate Set Hucre2 = [a1]...

Merhaba, Sub Makro1() Dim oDoc As Document, docN As Document Dim rCopy As Range, strTemplate As String Dim k As Integer, i As Integer, sayfa_araligi As Variant Dim son As Integer, say As Integer Application.ScreenUpdating = False Selection.HomeKey Unit:=wdStory Set oDoc = ActiveDocument...

Aşağıdaki kodları deneyebilirsiniz. Sub test() Dim r, t As Range Dim x, y As Integer On Error Resume Next x = 0 y = 0 Set r = Application.InputBox(Prompt:="Birinci Hucreyi Seçin", Type:=8) x = r.Value xx = r.Address Set t = Application.InputBox(Prompt:="Ikinci Hucreyi Seçin", Type:=8) y =...

...As Object Dim strSQL As String Dim SaatFarki As Integer Application.ScreenUpdating = False SaatFarki = Application.InputBox("Saat farkını girin:", Type:=1) If SaatFarki = False Then MsgBox "İşlem iptal": Exit Sub Sheets("Sonuc").UsedRange.ClearContents...

...Dim My_Connection As Object, My_Recordset As Object Dim Hour_Difference_Input As Variant Hour_Difference_Input = Application.InputBox("Raporlamak istediğiniz saat farkını hh:mm:ss biçiminde giriniz...", "SAAT FARKI GİRİŞİ", "01:00:00") If Hour_Difference_Input = False...

mrblar bana buna benzer bir kod lazımdı,, aktif çalışma sayasındaki belirli bir aralığı (A1:Q33) resim olarak yeni çalışma sayfasına aktaarmasını istiyorum bu şekilde düzenleyebilir misinz acaba

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