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

Sayın abim, kendi koduma uygulayamadım çalışmadı, galiba senin kodu uygulayamadım, dosyanın yolu bulunamadı diyor, oysa benim kodumda buluyor. Kodun tamamını ekliyorum. Zahmet olmaz ise bakar mısın? Saygılarımla... Teşekkür ederim. Saygılarımla...

Sayın Ömer abim, yine 2 nolu mesajınızdaki konu yine kendime uyarladım. Ama şurayı nasıl düzeltirim. Bakabilirsen sevinirim abiciğim...

Üstad Sanırım dosya arkada açılıyor. Ondan sonra aralığı girebiliyoruz.

kopya = InputBox("Kopyalamak İstediğiniz Hücre Aralığını Giriniz.", Default:="A2") yapistir = InputBox("Yapıştırmak İstediğiniz Hücreyi Giriniz.", Default:="A2") Application.Workbooks.Open .SelectedItems(1) Sayfayı açmadan hangi aralığı kopya ile tanıtıyorsunuz?

Sayın: @Erkan Akayay Sayın: @haliliyas Aşağıdaki kodlarla Sorun çözüldü. İlgi ve alakalarınızdan dolayı çok teşekkür ederim. Sub KapaliDosyadanVeriCek() Dim kopya As Variant: Dim yapistir As Variant: Dim kaynak As Variant Range("A2:E" & Rows.Count).Clear With...

Üstad doğru söylüyorsunuz, Ama ihtiyaç halinde yapabilmek adına öğrenmek istediğimden kaynaklanıyor

Range olarak tanımlamışısınız. Hata vermez, çalışıyor. Aşğıdaki linkten kontrol edebilirsiniz. Application.InputBox method (Excel) | Microsoft Learn Ama kodunuzda daha ciddi bir hata var. Alan seçmeden dosyayı açmanız gerekmiyormu? Diğer bir konu ise kapalı dosya ise buna neden gerek duydunuz...

Üstad Yine hata verdi

Set kopya = Application.InputBox("Kopyalamak İstediğiniz Hücreyi Giriniz..!", Type:=8)

Sub Gruplama() Dim kaynak(), hedef() Dim sayac As Integer, sutun As Integer sutun = InputBox("Kaç sütun olacak?") kaynak = Application.Transpose(Range("A1:A" & Range("A1").End(xlDown).Row).Value2) ReDim hedef(Application.RoundUp((Range("A1").End(xlDown).Row / sutun), 0) - 1, 1 To sutun + 1)...

Outlookta birden fazla posta hesabım var. Biri şahsi adresim diğeri şirket adresi. Excelden aşağıdaki makro ile çalışmaları pdf yapıp mail gönderirken hangi adresimden göndereceğimi makro ile nasıl tanımlarım. Sub MailGonder_AracCubugu() MsgBox ("Masaüstünüzde PDF klasörü oluşturulacak dosyalar...

...mı bilemiyorum fakat ben de böyle bir alternatif düşündüm. Sub dd() Dim rng, r, y As Range Dim s As Integer s = 0 Set rng = Application.InputBox("Aralık Seçiniz", "Aralık Kopyala", Type:=8) Set y = Application.InputBox("Yapıştırılacak Hücreyi Seçin", "Aralık Kopyala", Type:=8) For Each r In...

bu kodu çalıştırdığımda 1 i seçince seçtiğim sekmeleri birleştirererek kaydediyor.

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