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

Merhaba arkadaşlar aşağıdaki kod ile bir sayfayı yeni ay ve gün ismi olarak kopyalıyorum.. yapmak istediğim : 1- Yeni ay ismi inputboxa 08.11.23 şeklinde gelsin. 2- Yeni kopyalanacak sayfada B3:AS3 aralığında dolgu rengi gri olsun. 3- Yeni kopyalanacak sayfada ; Girisler sayfasında bulunan...

...0 Then Application.Workbooks.Open .SelectedItems(1) Set ikinci = Application.ActiveWorkbook Set Hucre1 = Application.InputBox(prompt:="Kopyalamak İstediğiniz Hücreleri Seçin", Title:=Baslik, Default:="A1:EA700", Type:=8) ilk.Activate Set Hucre2 =...

...Dim Data_Last_Row As Long, Last_Row As Long Dim Process_Time As Double, My_Formula As String Search_Text = Application.InputBox("Aradığınız veriyi giriniz...") If Search_Text = "" Then MsgBox "Lütfen aramak istediğiniz veriyi giriniz!", vbExclamation Exit...

...0 Then Application.Workbooks.Open .SelectedItems(1) Set ikinci = Application.ActiveWorkbook Set Hucre1 = Application.InputBox(prompt:= Title:=Baslik, Default:="A1:EA700", Type:=8) ilk.Activate Set Hucre2 = Application.InputBox(prompt:=, Title:=Baslik...

Merhaba alternatif. Private Sub CommandButton1_Click() sifre = Application.InputBox("Şifre Giriniz", "Şifre Giriş") If sifre = False Then Exit Sub If sifre = 123 Then MsgBox "Şifre doğru.", , "" [A2] = "Deneme" ElseIf sifre = "" Then MsgBox "Şifre girmediniz.", ...

Evet işlemlerin hepsi doğru. Benim istediğim ise tüm personelleri tesis isimleri ile yeni Excel oluşturup ikinci sayfadaki formatta kaydetmesi. Aylık olarak verileri saklamam gerekiyor mesela Ekim Kavaklıdere , Ekim Çambel Pompa İstasyonu, Ekim Karaçam diğer ay ise Kasım Kavaklıdere gibi yeni...

...As Integer, _ x As Long, _ hdfRng As Range Liste.UsedRange.ClearContents 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...

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