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

Merhabalar Bulent bey Korhan beyın baska bir paylaşımında denk geldim birde bu makroyu denermisiniz? Option Explicit Sub ActiveSheet_SavaAs() Dim File_Name As String, My_Folder As Variant File_Name = InputBox("Dosya adını giriniz...", "DOSYA ADI") If File_Name = "" Then...

Merhaba, Aşağıdaki kodu kendi dosyanıza uyarlarsınız. Ben aktif olan sayfayı excel dosyası kaydedecek şekilde ayarladım. Siz gerekiyorsa sayfa adı belirterek düzenleme yapabilirsiniz. Option Explicit Sub ActiveSheet_SavaAs() Dim File_Name As String, My_Folder As Variant...

Merhaba, Excel'in ilk sayfasını masaüstünde oluşturmuş olduğum klasörün içerisinde istemiş olduğum isimle kaydetmek istiyorum. Aşağıda bulunan kod ile istediğim pdf yerine boş klasör kaydediyor. ( Seçmiş olduğum dosyaya klasör olarak kaydediyor. ) Pdf olarak kaydolması için sheet1'in, nasıl bir...

...As Long Dim xScreen As Boolean xScreen = Application.ScreenUpdating Application.ScreenUpdating = False xStr = Application.InputBox("Enter text to permute:", "Kutools for Excel", , , , , , 2) If Len(xStr) < 2 Then Exit Sub If Len(xStr) >= 8 Then MsgBox "Too many...

Userform'dan excel'e dönerken şifre sorması ve şifre doğruysa userformu kapatması için aşağıdaki kodlar kullanılabilir. Private Sub ExcelSayfasi_Click() ExcelSifre = InputBox("Şifre giriniz") If ExcelSifre = "12345" Then Else MsgBox ("Yanlış Şifre!") End If Application.Visible = True Unload...

...As Integer Dim txt As Variant Dim tx As String Set Sh = ActiveSheet On Error Resume Next Set Rng = Application.InputBox( _ Title:="Başlangıç Hücreyi Seçiniz", _ Prompt:="Hücre Seçimi", _ Type:=8) On Error GoTo 0 If Rng Is...

Teşekkür ederim deneyeceğim

...ara As String, ad As String ad = ThisWorkbook.Name yol = "C:\Deneme\" dosya = Dir(yol & "\*.xls*") ara = Application.InputBox("Aranan Değer", "Ürün Arama") If ara = "" Then Exit Sub Application.ScreenUpdating = False Do While dosya <> "" If dosya <> ad...

Hocam Yapamadım Maalesef, Commandbutton Kodlarım, Private Sub CommandButton1_Click() Cells(Me.TextBox1, Me.TextBox2) = Me.ListBox1 ActiveCell = "" For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then If ActiveCell = "" Then ActiveCell = ListBox1.List(i) Else...

Verilen kod vbs kodudur. Bir txt dosya açarak kodu yapıştırın ve vbs olarak kaydedin. Denemeden önce klasörlerinizi yedekleyin. Öncesinde farklı bir klasörde deneyin. Size değiştirmek istediğiniz dosya adı sorulacak ardından yeni adı istenecektir. Buna göre doldurun. Set objFSO =...

ilginiz için teşekkürler. ben şunu denedim şimdi onu yapacağım Sub veri_al() Dim pir As String Dim ilk As Workbook Dim son As Workbook Set ilk = ActiveWorkbook ilk.Sheets("okuma").Activate pir = InputBox("Okul Kodu", "Okul Kodunu Giriniz") Range("b1").Value = pir...

iyi çalışmalar dat uzantılı dosyadan verileri almak istiyorum yardımcı olabilir misiniz xls ile aşağıdaki kod ile alabiliyorum Sub veri_al() Dim pir As String Dim ilk As Workbook Dim son As Workbook Set ilk = ActiveWorkbook ilk.Sheets("Sayfa1").Activate pir =...

Hayır abim yine olmuyor. Tek bir şekilde oluyor. Oda bu Böyle oluncada ekdeki dosyayı incelersen ücretsiz izinli personelin sadece hesabını bırakıyor. Diğerleri doğru geliyor.

Merhaba, Yada; sat=sat+1 satırından önce aşağıdaki gibi yazılabilir. syf.Range("B" & sat).Value = Right(Range("K" & t).Value, 17) Tam kod: Sub PROMOSYON_İÇİN_VAKIFBANK() 'VAKIF Dosya = "D:\Belgelerim\Banka\VAKIF.xlsx" SonSat = Cells(Rows.Count, "A").End(3).Row...

Sayın abim o olmadı da şöyle bir şey uyguladım. Oluyor ancak. Bu kod oluyor ama VAKIF dosyasının B Kolonuna İbanın sağdan 17 hanesini yazdıracağım onu da aşağıdaki kod yapılor. ancak bunun nereye yazacağımı bulamadım. Next satırından sonra yazınca oluyor ama ücretsiz izinli olanın hesap...

Merhaba arkadaşalar; Personel listesi dosyasından promosyon ödemesi için Banka dosyası oluşturuyorum. Ancak isteğim S Kolonunda Ücretsiz izinli olanları almasın bunun için aşağıdaki kodu kullandım ama olmadı nasıl bir değişiklik yapmam lazım.

Dosyanıza bakamıyorum. Anlatıma dayalı olarak bu makro olabilir diye düşündüm. Sub KOD() Dim Alan As Range Dim a Dim s, i, b, c, d a = InputBox("metin giriniz", "metin") s = ActiveSheet.Name Application.ScreenUpdating = False For i = 1 To Sheets.Count...

Onu başka excele aktarmak yerine bu şekilde çözmeye çalıştım. Kodum aşağıdaki şekilde. Z'yi iptal edecektim aslında ama yanlış yerlerimi sildim bilmiyorum hata verince ellemedim artık. Sizin dediğiniz kodu "Bu çalışma kitabı" içerisinemi yapıştıracağım. Yoksa moduledeki makro içerisine mi? Her...

Hocam, çok teşekkür ederim. Dosya açıldığı zaman çalışan, Sayfa1 A1 hücresine yazan şekle uyarladım. Emeğinize sağlık. Var olun.

...örnek kod hazırladım. Kendinize göre düzenlersiniz. Option Explicit Sub Test() Dim My_Text As Variant My_Text = Application.InputBox("Lütfen metinsel veri giriniz.", Type:=2) If My_Text = False Then MsgBox "İptal tuşuna bastınız...", vbInformation Exit...