Merhabalar,

Benim sorunum şu:

Access ile bir tablo hazırladım ve bu tablonun bir satırındaki verileri örneğin Adı, Soyadı, okul no, sınıfı gibi alanlardaki verileri excelde adı verisini a5'e, soyadını a7 ye okul no sunu b5e nasıl yazdırabilirim?

Aşağıdaki formülle E6:AI280 arasındaki hücrelere veri giriyor.
Burda "Günlük Çalışma" yazan satırlara veri girmesi gerekiyor.
[code=vba]Sub PuantajGir()

Puantaj = MsgBox("Yeni Puantaj Gireceksiniz", vbYesNo + vbDefaultButton2 + vbExclamation, "Puantaj Gir")

aylar = Range("f3").Value
If Puantaj = vbYes Then
If aylar = "Ocak" Or aylar = "Mart" Or aylar = "Mayıs" Or aylar = "Temmuz" Or aylar = "Ağustos" Or aylar = "Ekim" Or aylar = "Aralık" Then
Range("D6:AI280").Select
Selection.Formul

Merhabalar,

Benim bir işi basitleştirmek için ufak bir uygulamaya ihtiyacım var. Durumu şu şekilde açıklıyım.

Ekteki excel dosyasında "D", "E", "G" ve "H" hücrelerindeki verilerin (veriler aşağıya kadar uzamakta) en başına " ' " (tek tırnak) işareti koymam gerekli ki metin durumuna geçsin ve kullandığım sistem raporu aktarırken algılasın. Eğer tek tırnak koymadan aktarırsam numerik olarak algılamakta ve hata almaktayım. Bunun basit çözümleri var (Örn: bir hücreye " '0 " ekleyip gerekli hüc

Arkadaşlar bir rapor oluturdum ama birşeyi yapamadım rapordaki bir değere gör hücrenin renklenmesini istiyorum örneğin SAYI alanı 1 olduğunda ADI hücresi kırmızı olsun (Me.ADI.BackColor = vbRed) bu kodu kullandığımda hücreyi kırmızı yapıyor ma If ... Then koşulunu beceremedim. Bu konuda yardım edermisiniz

forumdaki aramalarım sonucunda Excel şablonuna verileri atmaya çalışıyorum. Forumdaki konularda çalışan kodları kendime uyarlamaya çalıştım ama yinede hata aldım. Bi türlü çözemedim işi. Birkaç farklı yol denedim ama olmadı . Yol gösterirseniz sevinirim.





[code=vba]Private Sub Komut297_Click()
'excel deneme 3
 Dim xl As Excel.Application
   Dim xlwkbk As Excel.Workbook
       
   If Me.Dirty Then
   DoCmd.RunCommand acCmdSaveRecord
   End If
       
   Set xl = New Excel.Application