#vba

Bu projede excel ile arayüzünü ve veri tabanı kısmını oluşturuyoruz. Sorum şu sürüklenebilen bir buton yapmak istiyorum (örneğin butonu seçip basılı tuttuğunda uygun olan Excel hücresine yerleştirebilmek istiyorum ama buton yine olduğu yerde kalacak,) aynı zamanda butonun yapısına da değişken...

Aşağıdaki kodda düzeltmeye ihtiyacım var, bu kod çalıştımı 1-çalışma kitabımdaki SATIŞA ESAS adlı sayfayı kopylayıp C:\İşletme Proğramı\Satışa Esas Sayaç Endeksleri\adresine yapıştırıyor isim olarak Sheets(54).Range("A3") & " " & trh & " " & "Satışa Esas Endeksler.xlsx" bunu veriyor 2-birinci...

Merhabalar çalıştığım excel kitabında sayfa indexi 2 ve 32 arasındaki sayfalarda (B : JX) arasındaki gizli olmayan sütunların genişliğini inputbox ile ayarlamak istiyorum, mevcut sütun genişliğide inputbox açıklamasında yazacak ,gizli olan sütunlara herhangi bir işlem yapmayacak böyle bişey...

merhabalar çalıştıgım excel kitabının sheets(1).[F2] adresindeki tarihi kullanarak D: Sürücüsü varsa D ye yoksa C sürücüsüne İşletme Proğramı\Günlük İşletme\2022\ocak İşletme Proğramı\Günlük İşletme\2022\şubat şeklinde 12 aylık klasör oluşturup çalıştığım kitabın kopyalarını içlerine atacak 12...

merhabalar yardıma ihtiyacım var çalıştıgım excel kitabının sayfa 111 A5 hücresinde "ÇIKAR" yazdımı sayfa 2 ve sayfa 32 arasındaki tüm sayfalarda LE stununu gizlesin sayfa 111 A5 Hücresinin 1 sağında "ÇIKAR" yazdımı sayfa 2 ve sayfa 32 arasındaki tüm sayfalarda LE stununun 1 sagındaki stunu...

Merhabalar klasör içinde klasör oluşturmak istiyorum aşağıdaki kodla sadece 1 klasör oluşturuyor onun içine klasör oluşturamıyorum yardım ederseniz memnun olurum Sub klasör() Dim yol As String yol = "C:\İşletme Proğramı\" Application.ScreenUpdating = False If Dir(yol, vbDirectory) = "" Then...

Çalışma kitabımın sayfa1 F2:G2 hücresinde tarih yazılı bu tarihi "mmmm yyyy" ocak 2022 seklinde trh değişkenine atamak istiyorum yardımcı olabilirseniz çok sevinirim Dim trh as string trh = ? Ben bu değişkeni kayıt yaptıracağım dosya isminde kullanacağım

merhabalar çalıştığım excel dosyamda sayfa indexsi 34 ve 51 arasında olanları masaüstüne yenibir excel dosyası oluşturup hepsini içine sayfa olarak kopyalamasını istiyorum kopyalarkende bazı sayfalarda nesneler var macro atadığım onlarıda silmesini istiyorum yardımcı olabilirseniz sevinirim.

Function maxsayfa(sayfano As Byte, sütun As Integer, satır As Integer) As Currency Dim hedef As String hedef = Sheets(sayfano).Cells(satır, sütun) maxsayfa = hedef End Function Bu şekilde fonksiyon ekledim sonucu veriyor fakat sayılar değiştimi sonucu otomatik vermiyor formül çubuguna...

Üstatlar Merhaba, Örnek Dosyada yapmak istediklerim; CommandButon 'a tıkladığımda; 1) Texbox1 'e 3-4 harf yazarak (Örneğin "VEDUM") Sayfa1 A sütununda arama yapıp VEDUM içeren/eşleşen satırları ListBox1 'e getirmek, 2) Listbox1 'e gelen verilerden seçtiğim satırın "C" Sütununda ki bilgiyi...

İyi akşamlar arkadaşlar. Ben excel'i etkin olarak ilk defa kullanmaya çalışıyorum. Pek fazla bilgim olduğunu söyleyemem. Linkte atayacağım dosyada imalat sayfası'nda sütunlarda olan a-b-c-d-e-f-g-h-genel değerlerini üzerinde a yazan sütunları a ile, b yazan sütunları b ile ..... genel yazanları...