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

Sayın Muzaffer Ali Öncelikle yardımınız için teşekkür ederim. Dosyayı işyerinde ortak kullanacağız, ekip olarak excel bilgimiz hiç yok desek yeridir. İlk önce kaydedemedim makro ayarlarım etkin değildi sanırım. Dana sonra kaydettim ama kodu çalıştırmayı beceremedim. Destek olabilir misiniz ...

Merhaba. BuÇalışmaKitabı adlı kod sayfasına aşağıdaki kodu kopyalayın. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If ActiveSheet.Name = "GİZLİ" Then Sh.Select If InputBox("Lütfen şifre giriniz.") = "123" Then Application.EnableEvents = False...

Hocam teşekkür ediyorum. Çok işime yaradı.

Set xRg = Application.InputBox("Lütfen işlem yapmak istediğiniz hücre aralığını seçiniz.(Birden fazla aralık seçmek için Ctrl tuşunu kullanabilirsiniz.)", "My To World", xTxt, , , , , 8) Bu kısımı değiştirip istediğiniz alanı yazın. Set Xrg=Range("A2:C10") gibi

...= ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If Set xRg = Application.InputBox("Lütfen işlem yapmak istediğiniz hücre aralığını seçiniz.(Birden fazla aralık seçmek için Ctrl tuşunu kullanabilirsiniz.)", "My To World", xTxt, ...

...dosya oluşturur. Sub kod() Dim ay As String Dim trh1 As Date, trh2 As Date, a As Date Dim s1 As Worksheet, sh As Worksheet ay = Application.InputBox("Ay giriniz. (Örnek: 01.2024)") If ay = False Then Exit Sub trh1 = DateValue("01." & ay) trh2 = Application.EoMonth(trh1, 0) Set s1 = Sheets(1)...

Sayın hocam beceremedim galiba . Şu şekilde yaptım olmadı. Option Explicit Sub VeriCek() Dim dosyaAdi As String: Dim sayfaAdi As String: Dim wb As Workbook Dim ws As Worksheet: Dim WsAna As Worksheet: Dim satir, sat, i As Long, sonSatir As Long Application.ScreenUpdating = False...

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.