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

Sayın muhasebeciyiz Arkadaşım zaman ayırdığınız için çok teşekkür ederim. Evet çizim yapıyor. Fakat benim dediğim desen tam olarak bu değil. sayfaya resim linkini eklemeye çalışayım. https://resimlink.com/EjhsQe1B4t

Sayın muhasebeciyiz arkadaşım cevabınız için çok teşekkür ederim. Bakacağım çizime

...Dim diameter As Double Dim armWidth As Double Dim centerX As Double Dim centerY As Double diameter = Application.InputBox("Desenin çapını girin:", Type:=1) armWidth = Application.InputBox("Kol genişliğini girin:", Type:=1) centerX = ws.Cells(1, 1).Width +...

Bu çalışma ihtiyacımı tam olarak karşıladı. Diğer 8 ve 9. mesajdaki kodlar la da yapılabiliyor fakat ADO tecrübemin olmamasından dolayı ve bu kodda sayfalara ayır, dosyalara ayır ve yazdır seçenekleri olduğu için bana daha iyi geldi. Yardımız çok kıymetliydi. İlginizden dolayı çok teşekkür ediyorum.

...Surum = ActiveWorkbook.FileFormat Set ws = Sheets(ActiveSheet.Name) On Error Resume Next Basla: DosyaSayfa = Application.InputBox("1. SAYFALARA AYIRMA, 2. DOSYALARA AYIRMA, 3. YAZDIR", "YÖNTEM SEÇİMİ.....", 1, Type:=1) If DosyaSayfa = 0 Then Exit Sub If DosyaSayfa > 3...

...Surum = ActiveWorkbook.FileFormat Set ws = Sheets(ActiveSheet.Name) On Error Resume Next Basla: DosyaSayfa = Application.InputBox("1. SAYFALARA AYIRMA, 2. DOSYALARA AYIRMA, 3. YAZDIR", "YÖNTEM SEÇİMİ.....", 1, Type:=1) If DosyaSayfa = 0 Then Exit Sub If DosyaSayfa > 3...

...Set aSh = Sheets("DATA") arr = aSh.Range("A1").CurrentRegion.Value On Error Resume Next Set sec = Application.InputBox("Sayfalara Ayıracağınız Sütundan Bir Hücre Seçiniz", "SÜTUN BELİRLEME", Range("F1").Address, Type:=8) On Error GoTo 0 If sec Is Nothing Then...

....EnableEvents = False End With Set rng = Range("A1").CurrentRegion On Error Resume Next Set sec = Application.InputBox("Sayfalara Ayıracağınız Sütundan Bir Hücre Seçiniz", "SÜTUN BELİRLEME", Range("F1").Address, Type:=8) On Error GoTo 0 If sec Is Nothing Then...

Sub banka() Dim banka As String Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("İşlemYapılacakSayfaAdı") ' Değiştirmeniz gereken kısmı burası banka = InputBox("Banka Adı", "banka") banka = UCase(banka) ' Application nesnesine gerek yok 'banka = LCase(banka) ' Aynı şekilde LCase de...

Sub banka() Dim banka As String Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet banka = InputBox("Banka Adı", "banka") banka = Application.UCase(banka) ws.Range("C7").Value = banka End Sub Bu kod, belirli bir çalışma sayfasında (aktif çalışma sayfasında) C7 hücresine değeri atamak için...

selamlar, aşağıdaki kodda "Object doesn't support this property or method (Error 438)" hatası alıyorum, nasıl düzeltebilirim forumda bulamadım. teşekkürler. Sub banka() Dim banka As String banka = InputBox("Banka Adı", "banka") banka = Application.UCase(banka) Range("c7").Value = banka End Sub

Sub input_comment() ActiveSheet.Unprotect Dim pir As String pir = InputBox("Açıklama Giriniz:") Dim n As String n = ActiveCell.NoteText Dim l As Long l = Len(n) If l > 0 Then ActiveCell.NoteText Text:=" / " & pir, Start:=l + 1 Else...

Selamlar üstadlar, aşağıdaki kodu arşivlemede kullanıyorum. Arşivleme yaptığım program masaüstünde iken bu kodlar sorunsuz çalışıyor ve istediğim klasöre arşivleme yapıyor. Arşivlemeyi google drive'a yapıyorum. Ancak arşivle yaptığım programı google drive içindeki bir klasöre koyup arşivleme...

...Dim kisi1 As Variant, kisi2 As Variant ' Kullanıcıdan saat farkını giriş alın Hour_Difference_Input = Application.InputBox("Raporlamak istediğiniz saat farkını hh:mm:ss biçiminde giriniz...", "SAAT FARKI GİRİŞİ", "00:05:00") ' Eğer saat farkı girişi iptal edilirse işlemi...

...As String desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") myFile = desktopPath & "\" & Application.InputBox("Dosya adını girin:", "Dosya Adı", "Kurumlar") & ".txt" If myFile = "False" Then Exit Sub Open myFile For Output As #1 Set...

...deneme() Dim sayfaAdi As Variant Dim syf As Worksheet Set syf = ActiveSheet Application.ScreenUpdating = False sayfaAdi = Application.InputBox("Sayfa Adını Giriniz", Type:=2) If sayfaAdi = False Then Exit Sub If varmi(CStr(sayfaAdi)) = False Then Sheets.Add...

Sayfanın kod bölümüne yapıştırarak dener misiniz? Private Sub CommandButton1_Click() sor = Application.InputBox("Hangi satırdan sonrasını silmek istiyorsunuz? ", "SATIR NO GİRİŞİ") If sor = False Then Exit Sub Set s1 = Sheets("Sayfa1") ss = s1.Cells(Rows.Count, "B").End(3).Row...

Merhaba, benim kullandığım kod işinize yarayabilir. ActiveSheet.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 1015" Aktif yazıcı ne olursa olsun, bu satırdaki yazıcıya gönderiyor. Sonunda aktif yazıcıyı yine eskisine ayarlıyor. Sub Yazdir() Dim WF As WorksheetFunction Dim Ilk_No As Variant...

Necati Bey Çok, Çok teşekkür ederim. Ellerine sağlık Allah senden razı olsun.

Sub dipnotaCevirmek() Dim dipRef(), dipMet(), adet Dim i As Integer, say As Integer Dim orijinalRange As Range Dim yaz As Boolean Application.ScreenUpdating = False adet = InputBox("Kaç adet Dipnot eklenecek giriniz!", "Sayı Girme") If StrPtr(adet) = 0 Or adet <= 0 Or Not IsNumeric(adet) Then...