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ı...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.